修改VB程序,使其具有下列功能:运行程序,在文本框Text1中输入文本,单击"确认"按钮Command1,

Private Sub Command1_Click()

  MeCaption = Text1

  Text1 = ""

  Text1SetFocus

End Sub

i = MsgBox("密码错误", 5)

'MsgBox是d窗函数，第一个参数是d出的提示窗口需要显示的信息，第二个参数表示需要显示按钮组合，具体参数值见下面：

'vbOKOnly 0 只显示“确定”按钮。（缺省）

'vbOKCancel 1 显示“确定”和“取消”按钮

'vbAbortRetryIgnore 2 显示“终止”、“重试”和“忽略”按钮

'vbYesNoCancel 3 显示“是”、“否”和“取消”按钮

'vbYesNo 4 显示“是”和“否”按钮

'vbRetryCancel 5 显示“重试”和“取消”按钮

If i <> 4 Then

'如果MsgBox的返回值不等于4，也就是如果点击的按钮不是“重试”，MsgBox函数返回值参见下面：

'vbOK 1 单击了“确定”按钮

'vbCancel 2 单击了“取消”按钮

'vbAbort 3 单击了“终止”按钮

'vbRetry 4 单击了“重试”按钮

'vbIgnore 5 单击了“忽略”按钮

'vbYes 6 单击了“是”按钮

'vbNo 7 单击了“否”按钮

Quit

'这个应该是自定义的过程（sub），在此处调用Quit过程退出程序

Else

MeText0SetFocus

'设置Text0获取焦点

MeText0Text = ""

'清空Text0的内容

End If

那么你断点调试下，看在

Dim MySQL As String = "Select 部门经理姓名 from 公司部门表 where 部门名称 ='" + Trim(Me部门TextBox1Text) + "'" 这一行，能不能取到Me部门TextBox1Text的值。

————————————————

Me部门TextBox1Text 里面是没有内容的。你需要在里面输入值之后才能进行Select。

Android里的textview空间获取行数，可以在页面渲染完成之后，使用textview的getLineCount()方法进行获取，一定要将获取行数的代码放到另外一个线程中，否则无法获取到行数，如下代码：

TextView tv_test=(TextView)findviewbyid(u id);  //初始化textview控件

tv_testpost(new Runnable() {  //新开一个线程进行行数的获取

            @Override  

            public void run() {  

                logMe("当前" + position, "" + tvgetLineCount());  

            }  

});

没说具体要实现什么。

TextText1 Text2Text

这个有语法错误，是不是想写

TextText1=Text2Text

LabeVaption = Text1SelStart

这个是不是应该

LabeCaption = Text1SelStart

LabeCaption = Text1SelStart

LabeCaption = Text1SelLength

这样只是把text1的选中文本起始了长度分别显示在标签上。

是不是想写

labecaption=text1seltext

那前面那个过程没啥用，后面那个改一下就好了。你现在没取到字符串，只是两个位置，改成我上面的代码试试。

以上就是关于修改VB程序,使其具有下列功能:运行程序,在文本框Text1中输入文本,单击"确认"按钮Command1,全部的内容，包括:修改VB程序,使其具有下列功能:运行程序,在文本框Text1中输入文本,单击"确认"按钮Command1,、VB编程菜鸟求解答、vb.net textbox绑定问题等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！