请教高手3个问题......(vb2005)

Question

 

1.在TEXTBOX中只能输入汉字?代码该怎么写啊?

2.获得本机IP地址的代码如下:

Dim MYIP As System.Net.IPHostEntry = System.Net.Dns.GetHostByName(System.Net.Dns.GetHostName)
            Me.ToolStripStatusLabel10.Text = "您的IP地址：" & (MYIP.AddressList.GetValue(0).ToString)
        怎么提示错误....*****已过时...

        虽然可以运行但运行后得出的IP和我的星空极速显示的IP不一致.....有点郁闷

 

3.在delphi中是通过txt时间的修改实现局域网内主程序更新的....但VB2005好象是通过版本号?我以前没写过....所以请高手能不能给我个更新程序的代码?最好效果是windows的复制文件的对话框一样..有两个文件夹...文件飞来飞去的这样的效果...

如果有的话..就太感谢你了

我的邮箱:[e-mail]

 

Answer 1

问题比较多,我又比较弱.

1.可以用正则表达式解决掉

这个好办。<我不喜欢正则表达式..〉

 

 

Code Snippet

Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
       Dim Reg As New System.Text.RegularExpressions.Regex("[\u4e00-\u9fa5]")
        Dim M As System.Text.RegularExpressions.Match = System.Text.RegularExpressions.Regex.Match(TextBox1.Text, "[\u4e00-\u9fa5]")
        If Not (M.Success) Then
            TextBox1.Text = M.ToString()
        End If
    End Sub

 

 

2.原因很简单..过时，没关系，关键就是因为一台电脑有很多IP地址，你获取了IP地址链，要通过分析得到哪一个是你要的(估计是外网地址吧).

 

 

3.还没来得及写，我晚上发过来好么

Answer 2

 

对..如果改机联了外网就得外网IP...如果没有联外网就得局域网IP...是这样的...

太谢谢你了.....

你能不能留下你的联系方式.....

Answer 3

我是新手..没有必要吧~

QQ：498483439

MSN: [e-mail]

EMAIL: [e-mail]

blog: http://struggle-luan.blog.163.com

 

 

一般用C#。。VB.NET最早用的，现在觉得有些冗杂~但没关系..还是记得一些得