intClass = BlockMid strSubClass = "ELSEIF" Case line Like "Else" intClass = BlockMid '判断是否条件语句中间 strSubClass = "ELSE" Case line Like "Case *" intClass = BlockMid '判断是否多条件语句中间 strSubClass = "CASE" Case Else '其它情况判断 'intClass = 0 '这里暂不处理 End Select ...
7 我们把上面的语句放入Command1_Click()事件的前端，完整代码如下：Private Sub Command1_Click()If Combo1.Text = "除" And Text2.Text = 0 Then MsgBox ("被除数不能为0") exit subEnd IfDim jieguo As string '定义一个叫做jieguo的变量，用以储存结果select case combo1.text ‘选择combo...
lngRet = GetSystemMetrics(SM_CLEANBOOT) Select Case lngRet Case 0 '普通模式 Case 1 '安全模式 IsSystemRunInSafeMode = True Case 2 '带网络连接的安全模式 IsSystemRunInSafeMode = True Case Else '获取状态失败 End Select End Function '测试 Private Sub Command1_Click() If IsSystemRunInSafeMode...
一眼望去,一排排If……End If ,很眼晕是不?现在有个更好的方法,那就是Select Case 控制语句,简单又快捷,示例代码: 运行效果: 是不是很方便?这样有多少个条件都行,只需增加一个Case即可。需要注意的是,Select Case 语句结束后必须用End Select来结束,告诉程序退出该语句。 上面这个例子是七种条件都用判断,...
SelectCaseTempDrive'如是3则表示是硬盘,测试你有几个盘 Case3 X=GetDiskSpace(Chr$(DriveNum))'调用子程序 EndSelect NextDriveNum End Sub PublicFunctionGetDiskSpace(DrivePathAsString) DimDriveAsString DimSectorsPerClusterAsLong DimBytesPerSectorAsLong ...
SelectCaseTempDrive'如是3则表示是硬盘,测试你有几个盘 Case3 X=GetDiskSpace(Chr$(DriveNum))'调用子程序 EndSelect NextDriveNum End Sub PublicFunctionGetDiskSpace(DrivePathAsString) DimDriveAsString DimSectorsPerClusterAsLong DimBytesPerSectorAsLong ...
Case "Button6"MessageBox.Show("你点击了 Button6 按钮")Case "Button7"MessageBox.Show("你点击了 Button7 按钮")End Select End Sub 创建option控件 复制并粘贴这个option控件，提示创建数组选是，再重复一次 修改option的caption属性，比如，option1(0)的caption改为宋体，option1(1)的caption改为...
EvenCombo4.AddItem 4Combo4.AddItem 5Combo4.AddItem 6Combo4.AddItem 7Combo4.AddItem 8Combo5.AddItem 1Combo5.AddItem 2End SubPrivate Sub MSComm1_OnComm()Dim BytReceived() As ByteDim strBuff As StringDim i As IntegerSelect Case MSComm1.CommEvent 事件发生Case 2ClsMSComm1.InputLen = 0 读入...
ReDim Files(0 To nFiles - 1) As String Filename = Space(MAX_PATH) ' Retrieve each filename in Dropped Filelist. For i = 0 To nFiles - 1 Call DragQueryFile(hDrop, i, Filename, Len(Filename)) Files(i) = TrimNull(Filename) ...
Select Case responseid Case 0 '生成显示文字发送数据缓冲 ReDim ServerSendbuf(38) ServerSendbuf(0) = &H5A '命令字,表示驱动蜂鸣器声响 ServerSendbuf(1) = 0 ServerSendbuf(2) = 0 If Check2.Value = 1 Then ServerSendbuf(3) = Combo2.ListIndex '声音类型 ...