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

  • 问题

  •  

    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的复制文件的对话框一样..有两个文件夹...文件飞来飞去的这样的效果...

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

    我的邮箱:liaowenbo198_0@163.com

     

    2008年8月14日 17:49

答案

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

    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.还没来得及写,我晚上发过来好么

    2008年8月15日 2:04
  •  

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

    太谢谢你了.....

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

    2008年8月15日 7:50
  • 我是新手..没有必要吧~

    QQ:498483439

    MSN: luancfan@hotmail.com

    EMAIL: xuanluan007@126.com

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

     

     

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

    2008年8月15日 9:59

全部回复

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

    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.还没来得及写,我晚上发过来好么

    2008年8月15日 2:04
  •  

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

    太谢谢你了.....

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

    2008年8月15日 7:50
  • 我是新手..没有必要吧~

    QQ:498483439

    MSN: luancfan@hotmail.com

    EMAIL: xuanluan007@126.com

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

     

     

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

    2008年8月15日 9:59