我要编一个修改本机ip地址的程序,可是不太会,只是刚刚把界面编出来了,核心的东西:修改ip地址以及得到本机ip地址的代码真的一窍不通,请大家给个指点吧。
Public pc_no As String '定义字符型变量:机器号,就是每台电脑的ip地址的最后一个数字。
Option Explicit
Private Sub Command1_Click()
Dim test_pc_ip As Integer '测试一下输入的是不是2到253间的整数
test_pc_ip = CInt(pc_ip.Text)
If test_pc_ip < 2 Or test_pc_ip > 253 Then
MsgBox ("请输入2到253之间的整数!!")
Else
pc_no = pc_ip.Text '把客户输入的数字赋值给变量pc_no:机器号
End If
End Sub
Private Sub wtcmd_Click()
Label1.Caption = "本地IP是:192.168.0." + pc_no
End Sub
Private Sub ttcmd_Click()
Label1.Caption = "本地IP是:192.168.1." + pc_no
End Sub
Private Sub dxcmd_Click()
Label1.Caption = "本地IP是:192.168.2." + pc_no
End Sub
另外,下面这段代码是判定客户输入的数字必须在2到253之间,可是当客户输入字母的时候这代码无法判定,需要添加怎么样的代码才能判定呢?
如下:
Private Sub Command1_Click()
Dim test_pc_ip As Integer '测试一下输入的是不是2到253间的整数
test_pc_ip = CInt(pc_ip.Text)
If test_pc_ip < 2 Or test_pc_ip > 253 Then
MsgBox ("请输入2到253之间的整数!!")
Else
pc_no = pc_ip.Text '把客户输入的数字赋值给变量pc_no:机器号
End If
End Sub
[此贴子已经被作者于2005-11-20 11:21:28编辑过]