关于工具箱的使用，对您也挺简单！谢谢！

xmzorro 2003-10-16 07:23:44
在一个窗体内有Commandbutton1、CommandButton2、Text1.text、label1
希望在text1.text内输入1112时commandButton1、Commandbutton2能下沉，且label1上显示11、12。或按下CocommandButton1、Commandbutton2时text1.text内显示11或12,且label1上的11、12能自动变更！
最后一点要求是在text1.text内输入11时，如何不会回车就自动输入到变量中？
谢谢
...全文
51 22 打赏 收藏 转发到动态 举报
写回复
用AI写文章
22 条回复
切换为时间正序
请发表友善的回复…
发表回复
itlive 2003-10-18
  • 打赏
  • 举报
 回复
只看懂最后一个要求
dim n as str
private sub text1_change()
n=text1.text
msgbox n,vbokonlly
end sub
xmzorro 2003-10-18
  • 打赏
  • 举报
 回复
还是不能用，说出现二义性错误！
xmzorro 2003-10-18
  • 打赏
  • 举报
 回复
谢谢您的回答，长不不少见识！谢谢！
qiqunet 2003-10-18
  • 打赏
  • 举报
 回复
你是不是指按退格键时删除不了文本框中的内容?
如果是,在keypress里加一条语句允许keyascii=8通过就行了
程序部份你用下面这一段吧,它或者比前面的版本要好点


'===============================================
'以下是源程序部分：
'=================================================

Dim Subtext(8) As String

Private Sub Check1_MouseUp(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
checkup
Text1 = Index
Label1 = Index
Check1(Index).Value = 1 '使按钮凸起
Subtext(Left(Index, 1) * Right(Index, 1) - 1) = Index '保存text1的值
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii <> 8 Then
If 48 > KeyAscii Or KeyAscii > 51 Then KeyAscii = 0 '限制非法数字的输入
End If
End Sub

Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer)
On Error Resume Next
Dim Lentext As Integer, i As Integer, temptext As String
Label1 = ""
checkup
Lentext = Len(Text1)
temptext = Text1
If (Lentext Mod 2) <> 0 Then temptext = Left(Text1, Lentext - 1)
For i = 0 To Lentext - 1
If i * 2 + 1 > Lentext Then Exit For
Subtext(i) = Mid(temptext, i * 2 + 1, 2) '保存text1的值
Check1(Val(Subtext(i))).Value = 1 '使按钮被“按下”
If Label1 = "" Then
Label1 = Subtext(i)
Else
Label1 = Label1 & "," & Subtext(i) '显示labelq
End If
Next
'End If
End Sub
Sub checkup() '使按钮全部恢复凸起状态
Check1(11).Value = 0
Check1(12).Value = 0
Check1(13).Value = 0
Check1(21).Value = 0
Check1(22).Value = 0
Check1(23).Value = 0
Check1(31).Value = 0
Check1(32).Value = 0
Check1(33).Value = 0
End Sub

Private Sub Text1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Text1.SetFocus
Text1.SelLength = Len(Text1)
End Sub
xmzorro 2003-10-17
  • 打赏
  • 举报
 回复
你哪里看不明白？
qiqunet 2003-10-17
  • 打赏
  • 举报
 回复
上文又错了，呵呵，应该改为“1”
Check1(Index).Value = 1 '使按钮凸起(把这一句去掉就会下沉了)
qiqunet 2003-10-17
  • 打赏
  • 举报
 回复
Private Sub Check1_MouseUp(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
checkup
Text1 = Index
Label1 = Index


Check1(Index).Value = 0 '使按钮凸起(把这一句去掉就会下沉了)


Subtext(Left(Index, 1) * Right(Index, 1) - 1) = Index '保存text1的值
End Sub


修改数值可以的吧? 我不知你要怎样修改的, 我修改的时候好象没问题，呵呵
这只是一个例程, 你运用时灵活点麻。
xmzorro 2003-10-17
  • 打赏
  • 举报
 回复
楼上的朋友，首先先谢谢您。
但你编的这个程序还是有点小问题，如不能在TEXT1.text内修改数值。而且当我用MOUSE按下11时，他不会下沉！
谢谢！
能告诉我您的信箱号码吗？
zjcxc 2003-10-17
  • 打赏
  • 举报
 回复
不太明白你的意思.
planetike 2003-10-17
  • 打赏
  • 举报
 回复
up
qiqunet 2003-10-17
  • 打赏
  • 举报
 回复
呵呵，中午的时候没时间去写程序，所以只说了方法
现在把全部的源程序写出来了，希望能适合你。
qiqunet 2003-10-17
  • 打赏
  • 举报
 回复
新建一个记事本文件，把下面的全部代码贴入记事本中，把记事本的扩展名改为.frm，然后双击打开就可以看到效果了。


VERSION 5.00
Begin VB.Form Form1
Caption = "Form1"
ClientHeight = 5295
ClientLeft = 60
ClientTop = 450
ClientWidth = 7710
LinkTopic = "Form1"
ScaleHeight = 5295
ScaleWidth = 7710
StartUpPosition = 3 'Windows Default
Begin VB.TextBox Text1
Height = 615
Left = 600
MaxLength = 18
TabIndex = 9
Top = 360
Width = 1455
End
Begin VB.CheckBox Check1
Caption = "33"
Height = 495
Index = 33
Left = 2400
Style = 1 'Graphical
TabIndex = 8
Top = 2760
Width = 735
End
Begin VB.CheckBox Check1
Caption = "32"
Height = 495
Index = 32
Left = 1680
Style = 1 'Graphical
TabIndex = 7
Top = 2760
Width = 735
End
Begin VB.CheckBox Check1
Caption = "31"
Height = 495
Index = 31
Left = 960
Style = 1 'Graphical
TabIndex = 6
Top = 2760
Width = 735
End
Begin VB.CheckBox Check1
Caption = "23"
Height = 495
Index = 23
Left = 2400
Style = 1 'Graphical
TabIndex = 5
Top = 2280
Width = 735
End
Begin VB.CheckBox Check1
Caption = "22"
Height = 495
Index = 22
Left = 1680
Style = 1 'Graphical
TabIndex = 4
Top = 2280
Width = 735
End
Begin VB.CheckBox Check1
Caption = "21"
Height = 495
Index = 21
Left = 960
Style = 1 'Graphical
TabIndex = 3
Top = 2280
Width = 735
End
Begin VB.CheckBox Check1
Caption = "13"
Height = 495
Index = 13
Left = 2400
Style = 1 'Graphical
TabIndex = 2
Top = 1800
Width = 735
End
Begin VB.CheckBox Check1
Caption = "12"
Height = 495
Index = 12
Left = 1680
Style = 1 'Graphical
TabIndex = 1
Top = 1800
Width = 735
End
Begin VB.CheckBox Check1
Caption = "11"
Height = 495
Index = 11
Left = 960
Style = 1 'Graphical
TabIndex = 0
Top = 1800
Width = 735
End
Begin VB.Label Label1
Height = 495
Left = 2760
TabIndex = 10
Top = 480
Width = 2055
End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False




'===============================================
'以下是源程序部分：
'=================================================

Dim Subtext(8) As String

Private Sub Check1_MouseUp(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
checkup
Text1 = Index
Label1 = Index
Check1(Index).Value = 0 '使按钮凸起
Subtext(Left(Index, 1) * Right(Index, 1) - 1) = Index '保存text1的值
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
If 48 > KeyAscii Or KeyAscii > 51 Then KeyAscii = 0 '限制非法数字的输入
End Sub

Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer)
On Error Resume Next
Dim Lentext As Integer, i As Integer
Label1 = ""
checkup
Lentext = Len(Text1)
If (Lentext Mod 2) = 0 Then
For i = 0 To Lentext
If i * 2 + 1 > Lentext Then Exit For
Subtext(i) = Mid(Text1, i * 2 + 1, 2) '保存text1的值
Check1(Val(Subtext(i))).Value = 1 '使按钮被“按下”
If Label1 = "" Then
Label1 = Subtext(i)
Else
Label1 = Label1 & "," & Subtext(i) '显示labelq
End If
Next
End If
End Sub
Sub checkup() '使按钮全部恢复凸起状态
Check1(11).Value = 0
Check1(12).Value = 0
Check1(13).Value = 0
Check1(21).Value = 0
Check1(22).Value = 0
Check1(23).Value = 0
Check1(31).Value = 0
Check1(32).Value = 0
Check1(33).Value = 0
End Sub

Private Sub Text1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Text1.SetFocus
Text1.SelLength = Len(Text1)
End Sub
cjlong 2003-10-17
  • 打赏
  • 举报
 回复
Private Sub Command1_Click()
Text1.Text = "11"
Label1.Caption = "11"
MsgBox "click_1"
End Sub

Private Sub Command2_Click()
Text1.Text = "12"
Label1.Caption = "22"
MsgBox "click_2"
End Sub


Private Sub Text1_Change()
If Text1.Text＝"1112") Then
Call Command1_Click
Call Command2_Click
end if
If Text1.Text= "11" Then str1=text1.text
End Sub
Kivic 2003-10-17
  • 打赏
  • 举报
 回复
Private Sub Command1_Click()
Text1.Text = "11"
Label1.Caption = "11"
MsgBox "click_1"
End Sub

Private Sub Command2_Click()
Text1.Text = "12"
Label1.Caption = "22"
MsgBox "click_2"
End Sub


Private Sub Text1_Change()
If InStr(Text1.Text, "11") Then Call Command1_Click
If InStr(Text1.Text, "12") Then Call Command2_Click
End Sub
qiqunet 2003-10-17
  • 打赏
  • 举报
 回复
注：

……
在Text1_Change()事件（建议选择text1_keyUP事件，避免与check的click事件改变text1时产生死循环。）里判断text1的内容，并用mid两位两位地分割字符串，然后
……
qiqunet 2003-10-17
  • 打赏
  • 举报
 回复
建议不要用command按钮
改用check单选框,并把check的style属性设置成按钮形式
设置多个同名的check的index属性为"11"、"12"、"13"、"21"、"22"、"23"……
在Text1_Change()事件里判断text1的内容，并用mid两位两位地分割字符串，然后用一个select case判断各个子字符串(subtext)的内容，并用check(val(subtext)).value=1；lable1=subtext


按下按钮时容易，用Check_Click(Index As Integer)事件就行了，text1=Index；label1=Index

最后一点 chewinggum(口香糖·向星星前进) 说得不错，可照用。

另外，根据需要，可在label1的change事件里恢复check按钮的凸起形状，即设置check(index).value=0，亦即模拟按钮效果。
xmzorro 2003-10-16
  • 打赏
  • 举报
 回复
Commandbutton可能有十几个，我是说在Text内软件入11或者12时按钮能动作。当然也能输入21、31等数值。
您知道怎么做到吗？
xmzorro 2003-10-16
  • 打赏
  • 举报
 回复
您哪里看不明白？xmzorro@163.com
踏平扶桑 2003-10-16
  • 打赏
  • 举报
 回复
我来尝试回答一下
可以在按下键盘时判断text1的内容是不是等于1112，如果等于就sendkey（需要事先设置好tab顺序，不知道能不能实现按下这个动作）同时label1显示内容。当按下command的时候就可以在text里显示了，label1改变（这个很简单）
脆皮大雪糕 2003-10-16
  • 打赏
  • 举报
 回复
对于最后一点要求可以这样，定义一个模块级变量，然后在text德change事件中赋值

Option Explicit
Dim a As String

Private Sub Text1_Change()
a = Text1.Text
Debug.Print a
End Sub
加载更多回复（2）
MATLAB 2023：偏微分方程数值解工具箱
结合MATLAB偏微分方程数值解工具箱介绍偏微分方程的求解，分GUI和MATLAB函数两种实现方式进行介绍。结合MATLAB 2023a版本进行介绍，该版本在用函数建模、求解和可视化等方面有较多改进，可以处理三维模型。所在套餐：MATLAB核心知识点系列课程-CSDN程序员研修院，不断更新和增加课程。
【办公软件篇】软件启动器Lucy打造自己的工具箱
自从Rolan改为订阅制后就弃用了，本次推荐一款快速启动器Lucy，不联网，不写注册表，体积小，绿色免安装，免费无广告，风格简洁但不简单，目前用了几年了，一直很稳定---【蘇小沐】
把 VS Code 打造成 Java 开发 IDE，也挺爽！
VS Code提供了一套nodejs工具用于辅助开发者创建扩展，同时官方文档中提供了简单明了的文档说明以及丰富的samples，samples包括Command、Color Theme、Tree View等等，本文仅做Extension Pack的示例。 环境准备 ...
c#常用快捷键
VS快捷键大全（总结了一些记忆的口诀） 原文转载至 https://www.cnblogs.com/liyunhua/p/4537054.html#top 谢谢大牛的分享！...下面我将简单介绍一下我记忆VS快捷键的一些方法，希望对大家有所帮助。 ...
制作纯净的U盘启动盘(避免纯净系统安装后却内置垃圾软件)
刚开始感觉挺方便,使用也很简单.但之后就发现问题了,这东西制作的系统U盘启动盘不干净！！不干净！！不干净！！ 起初也没怎么在意,每次用老毛桃重装系统时无论用原生镜像还是修改过的,都会莫名其妙的出现以下问题:1...
VB基础类

7,762

社区成员

197,608

社区内容

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今

加载中

查看更多榜单
社区公告
暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章