none
vb.net ascii码查询 RRS feed

  • 问题

  • Private Sub Form_Load()
    Text1 = ""
    Text2 = ""
    End Sub

    Private Sub Text1_Change()
    Dim myKeyAscii As String
    If Text1.Text <> "" Then
    myKeyAscii = Text1.Text + " ------- " + Text2.Text
    List1.AddItem (myKeyAscii)

    End If
    End Sub

    Private Sub Text1_KeyPress(KeyAscii As Integer)
    Text1.Text = ""
    Text2.Text = KeyAscii
    End Sub
    以上是我用vb6写ascii的代码,vb.net该怎样写?上面的代码好像不能用在vb2005
    2010年8月7日 6:21

答案

  • 你好

    如果TEXT1 和 TEXT 2 是 TEXTBOX CONTROL 的話
    Private Sub Form_Load()
    Text1 = "" ' 這是不合法的
    Text2 = "" ' 這是不合法的
    End Sub

    正如 韦恩卑鄙 v-zhewg  所說

    如果你想把他們設定為 "空白字串" ""
    你需要改變他們為
    Private Sub Form_Load()
    Text1.Text = "" ' 這是不合法的
    Text2.Text = "" ' 這是不合法的
    End Sub

    如果你想把輸入的字轉成 ASCII CODE
    你要把 字母轉成數字
    你可以嘗試以下方去
    把 以下的CODE


    Private Sub Text1_KeyPress(KeyAscii As Integer)
    Text1.Text = ""
    Text2.Text = KeyAscii
    End Sub

    轉成

    Private Sub TextBox1_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress

        TextBox1.Text =""
            TextBox2.Text = Convert.ToInt32(e.KeyChar)
        End Sub

    希望可以解決這個問題

    Please correct me if my concept is wrong
    Chi
    2010年8月7日 9:42
    版主

全部回复

  • Text1 = ""
    Text2 = ""    应该为 
    Text1.text = ""
    Text2.text = ""
    Text2.Text = KeyAscii
    应该为
    Text2.Text = KeyAscii.ToString()

    成为 Microsoft V Dash了。。。 欢迎各位前辈同事在OCS加我
    2010年8月7日 6:44
  • Text1 = ""
    Text2 = ""    应该为 
    Text1.text = ""
    Text2.text = ""
    Text2.Text = KeyAscii
    应该为
    Text2.Text = KeyAscii.ToString()

    成为 Microsoft V Dash了。。。 欢迎各位前辈同事在OCS加我
    不行。。。。
    2010年8月7日 9:08
  • 新建一个工程,一个窗体Form1 ,添加2个Label ,2个Textbox ,2个Button。添加如下代码:

    Public Class Form1
    
      Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        With Me
          .Text = "Ascii码"
          .MaximizeBox = False
          .FormBorderStyle = Windows.Forms.FormBorderStyle.FixedSingle
          .AcceptButton = .Button1
          .Label1.Text = "字符:"
          .Label2.Text = "Ascii:"
          .Button1.Text = "转换"
          .Button2.Text = "退出"
          .TextBox1.MaxLength = 1
          .TextBox1.Focus()
          .TextBox2.ReadOnly = True
        End With
      End Sub
    
      Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If Me.TextBox1.Text = "" Then MsgBox("字符不能为空!", MsgBoxStyle.Exclamation, "提示") : Me.TextBox1.Focus() : Exit Sub
        Me.TextBox2.Text = Asc(Me.TextBox1.Text).ToString
        Me.TextBox1.Focus()
        Me.TextBox1.SelectAll()
      End Sub
    
      Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Me.Close()
      End Sub
    End Class
    
    运行,OK。
    2010年8月7日 9:15
  • 你好

    如果TEXT1 和 TEXT 2 是 TEXTBOX CONTROL 的話
    Private Sub Form_Load()
    Text1 = "" ' 這是不合法的
    Text2 = "" ' 這是不合法的
    End Sub

    正如 韦恩卑鄙 v-zhewg  所說

    如果你想把他們設定為 "空白字串" ""
    你需要改變他們為
    Private Sub Form_Load()
    Text1.Text = "" ' 這是不合法的
    Text2.Text = "" ' 這是不合法的
    End Sub

    如果你想把輸入的字轉成 ASCII CODE
    你要把 字母轉成數字
    你可以嘗試以下方去
    把 以下的CODE


    Private Sub Text1_KeyPress(KeyAscii As Integer)
    Text1.Text = ""
    Text2.Text = KeyAscii
    End Sub

    轉成

    Private Sub TextBox1_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress

        TextBox1.Text =""
            TextBox2.Text = Convert.ToInt32(e.KeyChar)
        End Sub

    希望可以解決這個問題

    Please correct me if my concept is wrong
    Chi
    2010年8月7日 9:42
    版主
  • 额,我也觉得,LZ就算是VB6党也应该是:

    Text1.text吧哪有可能是Text=?

    我的是完整的了,有些啰嗦嘿嘿

    2010年8月8日 10:19