如何在vb中点击一个按钮自动把text中内容搜索 vb如何点击按钮输入相应文字
vb\u4e2d\u5982\u4f55\u901a\u8fc7\u70b9\u51fb\u6309\u94ae\uff0c\u5168\u9009\u6587\u672c\u6846\u4e2d\u6240\u6709\u6587\u5b57\uff1f1\uff09\u5728\u7a97\u4f53\u4e0a\u5e03\u7f6e\u4e00\u4e2aTextBox\u548c\u4e00\u4e2aCommand\u63a7\u4ef6
2\uff09\u7a97\u4f53\u4ee3\u7801
Option ExplicitPrivate Sub Command1_Click() '\u9009\u62e9\u6587\u672c\u6846\u4e2d\u6240\u6709\u6587\u672c With Text1 .SelStart = 0 .SelLength = Len(Text1.Text) '\u8ba9\u6587\u672c\u6846\u83b7\u53d6\u7126\u70b9 .SetFocus End WithEnd SubPrivate Sub Form_Load() '\u5728TextBox\u4e2d\u663e\u793a\u4e00\u4e9b\u6587\u672c Text1.Text = "Visual Basic\u662f\u4e00\u79cd\u53ef\u89c6\u5316\u7a0b\u5e8f\u8bbe\u8ba1\u8bed\u8a00" '\u547d\u4ee4\u6309\u94ae\u7684\u63d0\u793a Command1.Caption = "\u9009\u62e9\u6240\u6709\u6587\u672c"End Sub
Private Sub Command1_Click()Text1.Text = Text1.Text & Command1.CaptionEnd Sub Private Sub Command2_Click()Text1.Text = Text1.Text & Command2.CaptionEnd Sub Private Sub Command3_Click()Text1.Text = Text1.Text & Command3.CaptionEnd Sub
不是有个instr函数么?然后会返回一个值,通过该值设置text文本框在相应位置获得焦点就可以了。用法:
InStr([start, ]string1, string2[, compare])
下标从1开始 返回指定一字符串在另一字符串中最先出现的位置。在字符串string1中,从start开始找string2,省略start时从string1头开始找。找不到时,函数值为0。
用start可以实现持续查找 就是继续寻找下一个结果。
绛旓細鏂规硶涓锛氱敤鍓创鏉挎搷浣 Clipboard.SetText abc 鎶婂瓧绗︿覆澶嶅彉閲廰bc涓殑瀛楃涓插埗鍒板壀璐存澘 def = Clipboard.GetText 鎶婂壀璐存澘涓殑瀛楃涓茶祴鍊间釜瀛楃涓插彉閲廳ef 鏂规硶浜岋細鍙戦侀敭鐩樻寚浠 璋冪敤SendKeys锛屽悜褰撳墠娲诲姩绐楀彛鍙戦侀敭鐩樻寚浠 SendKeys "^C", True 琛ㄧず鍚戝綋鍓嶆椿鍔ㄧ獥鍙e彂閫侀敭鐩樻寚浠 Ctrl + C 锛屽叾涓紝...
绛旓細濡傛灉鏄竴涓伐绋嬮噷鐨2涓獥浣擄紝璋冪敤鏃堕渶瑕佸厛灏嗙浜屼釜绐椾綋涓寜閽殑浜嬩欢浣滅敤鍩焢rivate鏀逛负public 銆傜劧鍚庡湪绗竴涓獥浣撲腑鐨勬帶浠跺崟鍑讳簨浠堕噷璋冪敤绐椾綋鍚+浜嬩欢鍚銆備緥濡傦細Form1涓細Private Sub Command1_Click()Form2.Command1_Click End Sub Form2涓細Public Sub Command1_Click()'杩欓噷鏄浜屼釜绐椾綋涓寜閽殑鍗...
绛旓細1銆佹墦寮VB6.0寮鍙戣蒋浠讹紝鏂板缓涓涓爣鍑唀xe宸ョ▼锛2銆佸湪璁捐鐣岄潰涓婃坊鍔犱竴涓猅ext鎺т欢銆佷竴涓狢ommand鎺т欢锛孋ommand鐨凜aption灞炴ц缃负"閫変腑Text鏂囨湰"锛3銆佸弻鍑绘坊鍔犵殑Command鎺т欢锛岃繘鍏ヤ唬鐮佺紪杈戠晫闈紝杈撳叆濡備笅浠g爜锛歅rivate Sub Command1_Click() Text1.SelStart = 0 Text1.SelLength = Len(Text1.Text)End Su...
绛旓細閫氳繃妫娴嬪拰鏇存敼鎸夐挳鐨凩eft灞炴э紝灏卞彲浠ュ疄鐜版瘡涓娆℃寜閽殑鐐瑰嚮骞惰瀹冪Щ鍔銆傜敱浜庡彲鑳戒細鏈夊叾瀹冪殑鎺т欢寮曡捣閬尅锛屾墍浠ヤ笅闈㈢殑浠g爜璁╁畠宸﹀彸绉诲姩锛歅rivate Sub Command1_Click() '浜ゆ浛宸﹀彸绉诲姩 If Command1.Left Mod 2 = 0Then Command1.Left = Command1.Left 锛 1001 '鍏堝乏绉 Else Command1.Left = ...
绛旓細鎮ㄥ彲浠ュ皢涓嬮潰鐨勭ず渚嬩唬鐮佹坊鍔犲埌鎸夐挳鐨Click浜嬩欢涓紝浠鍦ㄥ崟鍑绘寜閽鏃跺悓鏃舵洿鏂颁袱涓枃鏈涓殑鏁板瓧锛歅rivate Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click '鑾峰彇鏂囨湰妗1涓鐨勬暟瀛楀苟灏嗗叾鍔1 Dim num1 As Integer = Integer.Parse(TextBox1.Text)num1 += 1 '鑾峰彇鏂囨湰妗2...
绛旓細1锛夊湪褰撳墠绐楀彛鎸夐挳鐨凜lick浜嬩欢涓鎵ц绐椾綋鐨勬寜閽殑Value 灞炴ц祴鍊糡rue浜嬮」銆俈alue 灞炴э紝CommandButton 鎺т欢锛嶈繑鍥炴垨璁剧疆鎸囩ず璇ユ寜閽槸鍚﹀彲閫夌殑鍊硷紱鍦ㄨ璁℃椂涓嶅彲鐢ㄣ侾rivate Sub Command1_Click() Form2.Command1.Value = TrueEnd Sub2锛VB涓鍙渶鍦ㄥ彟涓绐椾綋娣诲姞涓涓Timer鎺т欢锛屽湪褰撳墠绐椾綋鍛煎敜璇ョ獥浣撶殑...
绛旓細Private Sub Command1_Click()Dim l As Long l = 0 Text1.SetFocus Text1.SelStart = 0 Do While l <= Len(Text1) - Text1.SelStart Text1.SelLength = l l = l + 1 DoEvents Sleep 50 '寤舵椂50姣 Loop End Sub 闅惧緱浣犳兂瀹炵幇鎸夐敭绮剧伒鐨勬晥鏋滐紵鐢ˋPI mouse_event鍜 getwindow...
绛旓細璇曚竴涓 锛歅rivate Sub Command1_Click()If Command1.Caption = "閫鍑" Then Unload Me Else Command1.Caption = "閫鍑"End If End Sub Private Sub Form_Load()Command1.Caption = "纭畾"End Sub
绛旓細Private Declare Function timeGetTime Lib "winmm.dll" () As Long Private Sub Command1_Click()Dim t1 t1 = timeGetTime While (timeGetTime - t1) < 3000 DoEvents Wend form2.show form1.hide End Sub
绛旓細浣犲厛瑕佸垽鏂枃浠舵槸鍚﹀瓨鍦紝鐢涓涓API鍗冲彲锛屽湪妯″潡閲屽0鏄 Private Declare Function PathFileExists Lib "shlwapi.dll" Alias "PathFileExistsA" (ByVal pszPath As String) As Long 鐒跺悗鍦ㄦ寜閽噷鍐欎笂 If CBool(PathFileExists(sFile)) Then msgbox "鏂囦欢涓嶅瓨鍦"...