Show Your IP Address
Add Microsoft Winsock Control 6.0 component
Insert 1 Textbox
Insert 2 Command Buttons Rename Caption as Display and Clear
Private Sub Command1_Click()
If Text1.Text = “” Then
Command1.Enabled = False
Text1.Text = Winsock1.LocalIP
Else
Command1.Enabled = True
End If
End Sub
Private Sub Command2_Click()
Text1.Text = “”
If Text1.Text = “” Then
Command1.Enabled = True
Else
Command1.Enabled = False
End If
End Sub
Private Sub Form_Load()
Text1.Text = “”
If Text1.Text = “” Then
Command1.Enabled = False
Else
Command1.Enabled = True
End If
Text1.Text = Winsock1.LocalIP
End Sub
Posted by
at
07:10:59
wah, saya senang sekali melihat web ini, gak banyak basa-basi, yang kaya gini yang saya cari. btw mau tanya gimana cara menampilkan popup menu menggunakan short-cut keyboard?
Nanti akan saya berikan codenya…..
sabar ya….