:

Windows


Visual Basic ru.visual.basic


Re: - -

- , ?

17 Feb 04 18:59:24 RU.VISUAL.BASIC -> :

> :

> , ,
> "". ,
> ( )
> .

. H API. :) .

> - Drag-n-Drop -
> .

.OLEDropMode Manual OLEDragDrop
Data.Files.

!
aka Master

* Origin: . (2:5023/11.148)


Re[2]: - -

From:

Dmitriy!

DK> . H API. :) .
1. H , " "
2. ?

DK> .OLEDropMode Manual OLEDragDrop Data.Files.
, .

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





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


Re[2]: ZIP CAB

From:

Dmitriy!

DK> Cab www.vbrussian.com.
, -
, vbnet vb.kiev

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





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


.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)