1。对象与类有什么区别?
2。New关键字有什么用,怎么声明?
3。我想写一个小程序
如果InputText为张,则OutputText为cs1,否则OutputText为空,代码如下
Private Sub Command1_Click()
Dim a As String
a = InputText
If a = 张 Then
Output = cs1
Else
Output = ""
End If
End Sub
但好像不对,请老鸟指点一二,有人说用Str,这是个什么东西,怎么用啊?谢谢
2。New关键字有什么用,怎么声明?
3。我想写一个小程序
如果InputText为张,则OutputText为cs1,否则OutputText为空,代码如下
Private Sub Command1_Click()
Dim a As String
a = InputText
If a = 张 Then
Output = cs1
Else
Output = ""
End If
End Sub
但好像不对,请老鸟指点一二,有人说用Str,这是个什么东西,怎么用啊?谢谢
解决方案 »
- 如何使某个子过程失效?
- 请问:电脑里没有wininet.dll文件会不会影响ftpfindfirstfile 的使用?
- !!求助!如何用vb复制excel的工作表阿?
- 请问如何产生随机入库单编号?
- 关于在程序运行中在窗体上自动添加文本框控件的问题,在线期待!!!!!!
- 付费求一报表控件
- switch用法?
- 我怎么发布不了??
- COM+的问题help
- VB6.0使用ADODC访问Oracle数据库,一个棘手问题
- 在autocad下作的.dvb程序,如何能够在启动autocad的时候就一起启动,不必再手工启动?
- DBGRID与MSFLEXGRID、MSHFLEXGRID这三个控件之间的关系,适应范围,特性?
2,实例化. set aa=new bbb
3,张用引号引起来试试
2,实例化. set aa=new bbb
3,张要用“”括起来。Str是字符串
Dim a As String
a = Input.Text
If a = "张" Then
Output.text = "cs1"
Else
Output.text = ""
End If
End Sub
Private Sub Command1_Click()
Dim a As String
a = InputText.Text
If a = "张" Then
output.Text = "cs1"
Else
output.Text = ""
End If
End Sub
楼上的程序就可以了,你的代码没实现成功的原因就是没有text控件的属性!!
inputtext.text指的就是文本框里输入的文本!
TO:crysbaby(永远)你的意思我没太明白,你说我text控件的属性没搞清,怎么没搞清?
Outputtext.Text = IIf(Inputtext.Text = "张", "cs1", "")
End Sub
Dim a As String
a = trim(InputText.Text)
If a = "张" Then
output.Text = "cs1"
Else
output.Text = ""
End If
End Sub