نیاز ها

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

منبع:www.cesblog.ir