wdjh.net
当前位置:首页 >> VB6.0 iF...thEn, ElsE iF...thEn, EnD iF 语句 >>

VB6.0 iF...thEn, ElsE iF...thEn, EnD iF 语句

配对情况如下:

格式对的,调用图片要变成picture1.picture=loadpicture("***")

Private Sub Command1_Click()Dim i As Integer, l As Integer, r As IntegerDim chArray(40) As BytechArray = StrConv(Text1.Text, vbFromUnicode)For i = 0 To UBound(chArray) If Chr(chArray(i)) = "(" Then l = l + 1 If Chr(chArray(i)) ...

是由于if语法错误: 1、查看最后是否有endif 2、如果不行,仔细核对每一个if,看看有没有与其配对的end if

对呀,vb.net 中用的是 if then 条件 表达式 else 表达式 end if

把条件修改一下: 例如 not rs.bof or not rs.eof if not(rs.eof or rs.bof) then do white not rs.fields(0)=XPCombo1.text rs.movenext loop end if ClassReport.sections(4).controls("label15").caption=rs.fields(2)

不需要添加任何的控件,不需要修改代码,复制下运行,看看结果! Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyUp Then msgbox "您按了上键!" ElseIf KeyCode = vbKeyDown Then msgbox "您按了下键!" ElseIf ...

If InStr(1, Text2.Text, ".")

'一、Function Cala(x As Integer, ByVal y As Integer) 'x是按址传递,y是按值传递 x = x + y If x > 0 Then Cala = x Else Cala = y End IfEnd FunctionPrivate Sub Command1_Click() Dim m As Integer, n As Integer m = 18 n = -8 Text1.Tex...

楼主参考一下,这样简单处理,就不会闪了: Private Sub Form_Resize() If (WindowState = 0) Then If (Me.Width < 3000) Then '限制最小宽度 Me.Enabled = False Me.Width = 3000 Me.Enabled = True End If If (Me.Height < 5100) Then '限制最...

网站首页 | 网站地图
All rights reserved Powered by www.wdjh.net
copyright ©right 2010-2021。
内容来自网络,如有侵犯请联系客服。zhit325@qq.com