例如:Text1.text = CommonDialog1.FileName
要调用cmd命令:VB提供的:Shell函数,具体使用方法:
Dim RetVal As Integer
RetVal = Shell("C:\Exsa\1.exe", 1)
其中:1.exe就是你所谓的cmd命令程序文件
简单的用两个控件:picture和textbox而textbox是forms 2的文本控件,不同于普通的text,将该文本控件在picture之上并透明即可
复杂的用API,具体度娘.
Private Sub Text1_KeyPress(KeyAscii As Integer)Dim k As Integer, c As String
k = KeyAscii
c = UCase(Chr(k))
If c >= "A" And c <= "Z" Then '转换后是大写字母的进入判断内部处理,
'非大写字母的不做处理,所以text1中的1、2和&会照原样输入text2
k = k - 3 '以小写a为例,转换后是大写字母A,所以在这处理,k的值是97
'减3后是94,所以94+26=120,也就变成了x,其它字符类推……
'dxyz不进入加26的处理,所以只向前移三个字符……
If k < Asc("A") Or k > Asc("Z") And k < Asc("a") Then k = k + 26
End If
Text2.Text = Text2.Text + Chr(k)
End Sub
abcd12xyz&
xyza12uvw&
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)