起亚车标解释含义:两个VB设计问题!!~~~求助!!~~~~

来源：百度文库 编辑：高考问答 时间：2024/05/10 11:46:37
两个问题!!~~~
帮帮忙啊!!~~~~
一题：在窗体上放一个文本框，设计代码．完成”在文本框输入一个小写字符后．文本框中内容自动转换成相应大写字符并在文本框中输出”另外，在窗体上设计出一个按钮，当单激该按钮时，程序退出执行．
二题：编写代码实现当用户同时按下”SHIFT，CTRL和鼠标右键”时，在窗体上显示”你中招了！”字样．另外，在窗体上设计出一个按钮，当单激该按钮时，程序退出执行
麻烦各位能不能帮我写上代码!!~~~谢谢啦!!!!!~~~~

窗体上的控件就自己画上去吧。事件代码如下:

1:
Private Sub Text1_Change()
dim i as long
i=Text1.SelStart
Text1.Text=UCase$(Text1.Text)
Text1.SelStart=i
End Sub

Private Sub Command1_Click()
End
End Sub

2:
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If (Shift = (vbCtrlMask + vbShiftMask)) And (Button = vbRightButton) Then Print "你中招了！"
End Sub

Private Sub Command1_Click()
End
End Sub

10分太少了

写一个change()涵数就行了

1.写在文本框的change事件中，转换大写用UCase；退出程序中按钮的单击事件中写end就可以了
2.可以判断ascii码

两个VB设计问题!!~~~求助!!~~~~ VB编程设计问题 VB设计的问题 vb中小问题两个 VB问题求助~~~~~~~~~~~~~~ VB问题求助~~~~~~~~~~~~~~ VB问题,求助~~~~~ vb问题，高手求助 VB问题,求助! vb源码问题求助