Windows


Visual Basic ru.visual.basic


.res imagelist?

From:

!

50 . :
( ImageList):
- ?
- ?
- ( )?

--
><
[ knyshow#vantage.lg.ua ] [ gbu.dvostok.com ]
><





* Origin: " " (2:5020/400)

SUBJ: FTP -> HDD
FTP -> HDD

From:

!

H ( , )

-------

' OCX FTP CREADO POR JAVI TEJADA
' 2002 - BARCELONA - ESPAA
' jtejada [@] hsi.es

Dim ejecuta As Boolean
Public Sub Conexion(Metodo As String, Servidor As String, Puerto As Integer, Usuario As String, Contrasea As String,
Origen As String, Destino As String)
ejecuta = False
If UCase(Metodo) <> "GET" And UCase(Metodo) <> "PUT" Then
'Si el metodo es desconocido no se hace nada
MsgBox ("Metodo desconocido.Utilice 'PUT' o 'GET' como Metodo para el FTP")
Exit Sub
Else
Ftp1.RemoteHost = Servidor
Ftp1.RemotePort = Puerto
Ftp1.UserName = Usuario
Ftp1.Password = Contrasea
Ftp1.Execute , Metodo & " " & Origen & " " & Destino
ejecuta = True
End If
End Sub

Private Sub Ftp1_StateChanged(ByVal State As Integer)
Select Case State
Case 0
txtEstado.Caption = "Sin informacin del estado"
Case 1
txtEstado.Caption = "Buscando servidor"
Case 2
txtEstado.Caption = "Conectando con la IP remota"
Case 3
txtEstado.Caption = "Conectando con el servidor"
Case 4
txtEstado.Caption = "Conectado"
Case 5
txtEstado.Caption = "Recogiendo informacin del servidor remoto"
Case 6
txtEstado.Caption = "Peticion enviada correctamente"
Case 7
txtEstado.Caption = "Recibiendo respuesta"
Case 8
txtEstado.Caption = "Respuesta recibida corectamente"
Case 9
txtEstado.Caption = "Desconectando"
Case 10
txtEstado.Caption = "Desconectado"
Case 11
txtEstado.Caption = "Error de comunicacin"
MsgBox ("Se ha producido un error de comunicacin. Vuelva a intentarlo ms tarde")
Case 12
txtEstado.Caption = "operacion completada"
If ejecuta = True Then
MsgBox ("Operacion Realizada Correctamente")
End If
Case Else
End Select

End Sub


-------

MS Internet Transfer Control 6.0, -
. - ?
, , -
/ .

H .

--
><
[ knyshow#vantage.lg.ua ] [ gbu.dvostok.com ]
><





* Origin: " " (2:5020/400)


-

From:

!

-
"" ..
? -, ,
, . ?

--
><
[ knyshow#vantage.lg.ua ] [ gbu.dvostok.com ]
><





* Origin: " " (2:5020/400)


H ...

From:

!

wav mp3

Private Declare Function mciExecute Lib "winmm.dll" (ByVal lpstrCommand As String) As Long


, -
. - ? on error goto .

--
><
[ knyshow#vantage.lg.ua ] [ gbu.dvostok.com ]
><





* Origin: " " (2:5020/400)


- -

From:

!

:

, ,
"". ,
( )
.

- Drag-n-Drop - .


--
><
[ knyshow#vantage.lg.ua ] [ gbu.dvostok.com ]
><





* Origin: " " (2:5020/400)


ZIP CAB

From:

!

H ( )
ZIP CAB ( )
. - HH ..
8.3.

( ,
).

H . .

: ,
(, ).


--
><
[ knyshow#vantage.lg.ua ] [ gbu.dvostok.com ]
><





* Origin: " " (2:5020/400)


Re: .NET Win32 ( )

From: Alexander Trishin

Pavlov Andrey wrote on Tue, 17 Feb 2004 09:01:07 +0300:

> .NET . H , VS7
> exe Win32. VS7,
> exe Win32 C++. C#
> .NET. ?

. By design ;) H MC++ - .NET Framework
.

--
AT
* Origin: Demos online service (2:5020/400)


Excel

From:

!

. ???
H .
--
><
[ knyshow#vantage.lg.ua ] [ gbu.dvostok.com ]
><





* Origin: " " (2:5020/400)


Re[2]: ZIP CAB

From:

Dmitriy!

DK> " , ".
DK> http://www.vbrussian.com/Controls.asp?ID=92
- ... .
... , , ..


--
><
[ knyshow#mail.dsip.net ] [ gbu.dvostok.com ]
><
Golden BackUp ( gbu.dvostok.com ) - 0.0.188 Beta 9
><













* Origin: " " (2:5020/400)


Re:

From: "Sergey Broudkov"

Hello, A.!
You wrote to Dmitriy Kozyrev on Tue, 17 Feb 2004 10:58:23 +0000 (UTC):

AS>>> Painte,
AS>>> - ..
AS>>> ?
DK>> , - BitBlt.
AS> , - TransparentBlt

- , , ;)

"However, for 32 bpp bitmaps, it just copies the alpha value over. Use
AlphaBlend to specify 32 bits-per-pixel bitmaps with transparency."

"Windows 95/98: TransparentBlt contains a memory leak that can exhaust
system resources. To draw a transparent bitmap using BitBlt, see Knowledge
Base article Q79212."

AlphaBlend .

--
Regards,
Sergey Broudkov
sbpro [@] geocities.com
ICQ #4841919
, ? d;--D

* Origin: Demos online service (2:5020/400)