vb程序窗口我在vb清除文本框内容输入的内容(比如方法嘎嘎嘎)，再次进入vb程序窗口vb清除文本框内容输入的内容怎么才能依

来源：蜘蛛抓取(WebSpider) 时间：2016-04-24 04:52 标签： vb文本框只能输入整数
用vb6编了个输入用户名和密码的登陆窗口程序_百度知道
用vb6编了个输入用户名和密码的登陆窗口程序
登陆命令按钮2，点击“登陆”命令按钮进入下一窗体：密码文本框1，直接按回车键进入下一窗体：无命令按钮1：无文本框2：取消输入用户名和密码后标签1？是不是把&quot：用户名标签2。怎么做才能使输入用户名和密码后;命令按钮的快捷键设置成“回车键”改怎么做啊;登陆&quot
提问者采纳
窗体名.show
就可以了将命令按钮1 的 default 属性设置为True
其他类似问题
为您推荐：
vb6的相关知识
其他1条回答
将命令按钮一的Default属性设为True
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁VB程序问题求解 要求编写程序，在文本框输入一串英文字母（不区分大、..._百度知道
VB程序问题求解 要求编写程序，在文本框输入一串英文字母（不区分大、...
程序可找出未在文本框出现的其他所有英文字母，在文本框输入一串英文字母（不区分大; &quot，补充程序Private Sub Command1_Click()
Dim str As String。例如;&quot，Text1中显示的是＂ZYXWVUTSRQPONMLKJIHGEC＂VB程序问题求解要求编写程序，若在Text1中输入的是＂abDfdb＂.Text)
T &quot, c As String
str=UCase(Text1;=&quot，则单击Command1按钮后;&gt，单击命令按钮;
c=&quot,c)=0 Then
s=_________
c=Chr(Asc(c)_____)
If s &A& Z &quot，并以大写的方式降序表示到Text1中;
If Instr(str、小写）;
While c &gt, s As String
提问者采纳
A&&quot, c) = 0 Then
c = Chr(Asc(c) - 1)
If s &lt, s As String, c As String
str = UCase(Text1;
While c & Then
Text1.Text)
c = &= &Z& &
If InStr(& &quotPrivate Sub Command1_Click()
Dim str As String
来自团队：
其他类似问题
为您推荐：
英文字母的相关知识
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁VB上机实践Chap1-2_百度文库
两大类热门资源免费畅读
续费一年阅读会员，立省24元！
VB上机实践Chap1-2
上传于||暂无简介
阅读已结束，如果下载本文需要使用1下载券
想免费下载本文？
下载文档到电脑，查找使用更方便
还剩9页未读，继续阅读
你可能喜欢VB程序、、编写应用程序,要求在TextBox控件的文本框中输入一个英文句子后完成如下操作：1) 分析并显示控件的值中含有几个字母“a”.2) 若英文句子用“.”号结束,英文单词间用空格字符和逗号字符作为分隔字符,分析显示TextBox控件的Text值中含有几个英文单词.3) 把找到的单词按从小到大的次序排序后显示到另一个TextBox控件的文本框中.
花将军威武102
请用以下代码要求一个list1 用来排序单词 请将sorted属性设置为true .Private Sub Command1_Click()Dim anoFor i = 1 To Len(Text1.Text)If Mid(Text1.Text, i, 1) = "a" Thenano = ano + 1End IfNextMsgBox ano & "个a"End SubPrivate Sub Command2_Click() Dim Cmdarr() As String, cno As Long, mdarr() As StringCmdarr = Split(Text1.Text, " ")
For i = LBound(Cmdarr) To UBound(Cmdarr) '分析有几个单词
mdarr = Split(Cmdarr(i), ",")
For c = LBound(mdarr) To UBound(mdarr)
' 为单词排序到list1
List1.AddItem mdarr(c)
cno = cno + UBound(mdarr)
For d = 0 To List1.ListCount - 1
'将排序好的单词输出到text2 Text2.SelText = List1.List(d) & " " NextMsgBox cno + UBound(Cmdarr) + 1 & "个单词"End Sub
只用一个Textbox
这是数组的习题
能力有限不好意思 如果你解决了这个问题能发给我一份吗 学习一下
我们用的是visual basic 2008 像你写的那个List1.AddItem mdarr(c)
在这上边用Listbox1.items.add mdarr(c) 代替了
但是For d = 0 To List1.ListCount - 1
Text2.SelText = List1.List(d) & " "
这两句不知道用什么代替了
List1.ListCount - 1
= cno + UBound(Cmdarr)
Text2.SelText = List1.List(d) & " " --------------TEXT2.TEXT=TEXT2.TEXT & LIST1.LIST(D) & " "
List1.ListCount 是 这个控件里有多少项目 2008有对应的属性Listbox1.items.Count吧怀疑 我没用过
为您推荐：
其他类似问题
扫描下载二维码VB程序制作一个成绩等级程序，要求在文本框Text1中输入成绩，点击 等级按钮时，文本框里就显示相应等级。_百度知道
VB程序制作一个成绩等级程序，要求在文本框Text1中输入成绩，点击 等级按钮时，文本框里就显示相应等级。
Private Sub Command1_Click()If Text1.Text = && Then
MsgBox &请输入成绩&, vbInformation, &提示&
Text1.SetFocus
Exit Sub End If If IsNumeric(Text1.Text) = False Then
MsgBox &你输入的不是数字，请重新输入&, vbInformation, &提示&
Text1.SetFocus
SendKeys &{Home}+{End}&
Select Case Trim(Text1.Text)
Case Is &= 90: Text1.Text = Text1.Text & &分为：优&
Case 80 To 89: Text1.Text = Text1.Text & &分为：好&
Case 70 To 79: Text1.Text = Text1.Text & &分为：良&
Case 60 To 69: Text1.Text = Text1.Text & &分为：及格&
Case Is &= 60: Text1.Text = Text1.Text & &分为：不及格&
End SelectEnd Sub
其他类似问题
为您推荐：
vb程序的相关知识
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁

我要回帖

更多关于 vb文本框只能输入整数 的文章

 

随机推荐