Konfigurace portu

Private Declare Function ConfigurePort _
Lib "winspool.drv" Alias "ConfigurePortA" _
(ByVal pName As String, ByVal hwnd As Long, _
ByVal pPortName As String) As Long
*deklarace musí být celá na jednom řádku

Na formulář přidejte textbox a tlačítko. Na událost Click tlačítka zapište:

Private Sub Command1_Click()
    MsgBox ConfigurePort("", Me.hwnd, Text1.text)
End Sub

Spusťte aplikaci. Do textboxu zapište port, např LPT1 a klikněte na tlačítko.

Zpět