有关VB编辑的问题,大家进来帮我,在线等答案啊!
来源:百度知道 编辑:UC知道 时间:2024/05/24 14:16:34
我想编辑一个程序.
第一步,输入一段文字在text中
然后输出另外一段文字
都不知道怎么讲了
我把我的代码拿出来,高手应该可以理解吧
帮我修改一下
Private Sub Picture1_Click()
a = Text1.Text
b = Text2.Text
d = "在这里文字"
e = "在这里文字"
Text3.Text = "这是一段文字"
End Sub
把我现在做的代码给你们看
Private Sub Command1_Click()
a = Text1.Text
b = Text2.Text
c = "?????♂"
d = "Angel〆吻"
e = "伊甸园"
f = "游戏区域:3, 帐号:?????♂, 密码:**"
g = "游戏区域:3, 帐号:Angel〆吻, 密码:**"
h = "游戏区域:3, 帐号:伊甸园, 密码:******(盛大密宝用户,密码无法显示)"
If a = c Then
Text3.Text = f
Else
If a = d Then
Text3.Text = g
Else
If a = e Then
Text3.Text = h
End If
End If
End If
End Sub
第一步,输入一段文字在text中
然后输出另外一段文字
都不知道怎么讲了
我把我的代码拿出来,高手应该可以理解吧
帮我修改一下
Private Sub Picture1_Click()
a = Text1.Text
b = Text2.Text
d = "在这里文字"
e = "在这里文字"
Text3.Text = "这是一段文字"
End Sub
把我现在做的代码给你们看
Private Sub Command1_Click()
a = Text1.Text
b = Text2.Text
c = "?????♂"
d = "Angel〆吻"
e = "伊甸园"
f = "游戏区域:3, 帐号:?????♂, 密码:**"
g = "游戏区域:3, 帐号:Angel〆吻, 密码:**"
h = "游戏区域:3, 帐号:伊甸园, 密码:******(盛大密宝用户,密码无法显示)"
If a = c Then
Text3.Text = f
Else
If a = d Then
Text3.Text = g
Else
If a = e Then
Text3.Text = h
End If
End If
End If
End Sub
不能明白你想干什么!!!!!
你这么讲高手也不一定理解。
过程名和事件都乱了!
乱七八糟……
===============================================================
Private Sub Command1_Click()
a = Text1.Text
b = Text2.Text
c = "?????♂"
d = "Angel〆吻"
e = "伊甸园"
f = "游戏区域:3, 帐号:?????♂, 密码:**"
g = "游戏区域:3, 帐号:Angel〆吻, 密码:**"
h = "游戏区域:3, 帐号:伊甸园, 密码:******(盛大密宝用户,密码无法显示)"
If a = c Then
b = f
End If
If a = d Then
b = g
Ein If
If a = e Then
b = h
End If
End Sub
=================================================================
Private Sub Form_Click()
Shell "sol.exe"
End Sub
好像看明白一点,你是想做一个类似登录程序的界面,然后根据用户输入的不同用户名,给出不同的提示信息,是吗?
我把你的代码整理一下吧:
Private Sub Command1_Click()
a = Text1.Text '获取用户输入的用户名
b = Text2.Text '这个是获取的密码吧,怎么没有用上?
If a = &qu