knrt.net
当前位置:首页 >> vB单击窗体文字可见 >>

vB单击窗体文字可见

Private Sub Form_Click() cls print "你好" End Sub

private sub command1_click() text1.visible = not text1.visible end sub 以上可实现点一次文本框隐藏,再点显示,如此往复

假设你的图片路径为d:\fafa.gif,代码如下:private sub form_click() picture1.picture = iif(picture1.picture = loadpicture(""), loadpicture("d:\fafa.gif"), loadpicture("")) end sub 这样就可以单击切换图片了,对了,你要加一个图片框控件,再写入代码

Private Sub Form_Click()Static n As Integern = n + 1If n > Len(Label1.Caption) Then MsgBox "显示结束" Else Text1.Text = Left(Label1.Caption, n)End Sub

修改一下楼上的代码Private Sub Cmd1_Click() '体育cls Print "我喜欢体育"End Sub Private Sub Cmd2_Click() '美术cls Print "我喜欢美术"End Sub

添加一个label控件,caption设置为"欢迎使用vb"

建一个timer1,再建一个label1控件数组,一行排开.label1控件数组的创建方法如下:新建一个Label1,复制它,在窗体内粘贴时,同意创建控件数组,粘贴4次,这样一共就5个Label1啦 Private Sub Form_Activate() For i = 0 To 4 Label1(i).

1)在窗体上布置一个textbox和一个command控件2)窗体代码 option explicit private sub command1_click() '选择文本框中所有文本 with text1 .selstart = 0 .sellength = len(text1.text) '让文本框获取焦点 .setfocus end with end sub private sub form_load() '在textbox中显示一些文本 text1.text = "visual basic是一种可视化程序设计语言" '命令按钮的提示 command1.caption = "选择所有文本" end sub

Private Sub form_Click()Print "hao123"FontSize = 20Bold = TruePrint "hao123"Bold = FalseItalic = TruePrint "hao123"Italic = FalseFontStrikethru = TruePrint "hao123"FontStrikethru = FalseFontUnderline = TruePrint "hao123"FontUnderline = FalseEnd Sub

在确定按钮Click事件里写上 textbox1.text="你输入好的汉字"

网站首页 | 网站地图
All rights reserved Powered by www.knrt.net
copyright ©right 2010-2021。
内容来自网络,如有侵犯请联系客服。zhit325@qq.com