懂程序的进来看下

qili313

懂程序的进来看下
在IC_M1.Text 栏里可以输入:  172B2风马牛,182C2风马牛,162D2风马牛,等很多
我要
如果 c_m1.text 里包含了172b2
C_HM.Text = 11
如果 c_m1.text 里包含了182C2
C_HM.Text = 7
如果 c_m1.text 里包含了162d2
C_HM.Text = 5
......................
........................
============
c_m2.text 里包含了172b2
C_HM2.Text = 11
如果 c_m2.text 里包含了182C2
C_HM2.Text = 7
如果 c_m2.text 里包含了162d2
C_HM2.Text = 5
............
..............
该咋个来做？最简化的做法．．．．还有．．．对了．．用vba

黄玉宏

注：以下是VB6.0代码,用到CAD中作适当调整

Private Sub Command1_Click()
Dim a
a = Left(Text1.Text, 5)
Select Case a
Case "172b2"
Text2.Text = 11
Case "182c2"
Text2.Text = 12
'……
End Select
End Sub

dxhy

楼上说的不行吧！

只能实现一部分功能，要想实现全部，就要用like语句