编程学习biancheng.45soft.com 本站提供了各种在线教程和资料,供大家学习与参考.
编程学习
当前位置: 主页 > VB6 > 对象和程序设计 > VB6 对象和程序设计 对象事件过程及编程

VB6 对象和程序设计 对象事件过程及编程

Private Sub cmdexit_Click() ' 结束按钮
    End
End Sub

Private Sub cmdNew_Click() '清屏按钮
    txtInput = " "  'text属性是文本框的默认属性
    txtResult = " "  'txtResult 相当于 txtResult.Text
    txtInput.SetFocus() '焦点落在txtInput文本框上
End Sub

Private Sub txtInput_keypress(ByVal keyascii As Integer) '输入文本框按键事件
Dim aa As String * 1
    aa = Chr$(keyascii)  '按下的字符返回其ascii码值
    Select Case aa
        Case "A" To "Z"
            aa = Chr$(keyascii + 32) '转成小写字母
        Case "a" To "z"
            aa = Chr(keyascii - 32) '转成大写字母
        Case " "                '空格字符不转换
        Case Else
            aa = "*"                '其他字符转换成*
    End Select
    txtResult.Text = txtResult.Text + aa '转换内容放在结果文本框内
End Sub



编程学习 VB6 对象和程序设计 对象事件过程及编程 转载请保留此行.谢谢.

VB6