Question

vb中怎样才能不清除TEXT里的内容

设计程序的时候
就在TEXT1里输入了"http://"(这句话意思就是打开程序的时候TEXT就显示了这句话)
在TEXT1里输入网站的时候TEXT就变成了"http://www.baidu.com"
当执行下面的代码的时候TEXT里的所有内容都清除了
Private Sub Command1_Click()
Text1.Text = ""
End Sub
有没有办法当单击Command1的时候只清除"www.baidu.com"而把"http://"保留下来
本人才接触VB不久
各位大侠们帮帮忙
帮我想个办法
谢谢了

Answer 1

同意楼上的说法

Private Sub Command1_Click()
Text1.Text = "http://"
End Sub

作为一位VB新手,我在此推荐一个能让text产生更好输入效果的方法,只用加两行代码,希望你能接受

第一行加到整个代码块的最顶:
Private Declare Function SHAutoComplete Lib "Shlwapi.dll" (ByVal hWndEdit As Long, ByVal dwFlags As Long) As Long

第二行加在Form_Load里,怎么样才出Form_load呢?在设计器里双击一下窗体的空白处就有咯,加下面的中间一行
Private Sub Form_Load()
SHAutoComplete Text1.hWnd, 0
End Sub
好咯,完咯,就这么多

运行一下吧~!在上面打开网址会有什么神气效果
呵呵~~(*^_^*)

如果想在别的文本框插入这种效果,只需要把第二句中的Text1换成其它的文本框名字就可以了,记得保留.hwnd

Answer 2

Private Sub Command1_Click()
Text1.Text = "http://"
End Sub

Answer 3

Private Sub Form_Load() '在窗体启动是运行以下代码
Text1.Text = "http://" '使TEXT1自动显示你要的文字
Text1.SelStart = Len(Text1.Text) '光标移到文字最后

End Sub

Private Sub Command1_Click()
Text1.Text = "http://"
Text1.SelStart = Len(Text1.Text) '光标移到文字最后
Text1.SetFocus 'text1得到输入焦点
End Sub

Answer 4

把Text1.Text = "" 改成: Text1.Text = "http://" 就行拉~

Answer 5

只需要把Text1.text=""改成Text1.text="http://"就行了，因为在给Text1.text重新赋值的时，实际上是重新更新了Text的内容。不必先将Text清空再赋值，而是直接赋值就行了