新手，请高手赐教，怎么编这样的一个小程序 - VB6论坛

楼主

已结贴√ 问题点数：20 回复次数：10

新手，请高手赐教，怎么编这样的一个小程序

如截图

图片附件: 游客没有浏览图片的权限，请登录或注册

，望不吝赐教

第 2 楼

得分:0

你这个只是一个界面，效果呢？

第 3 楼

得分:0

回复楼主 ycpyxl

就是点前面的钢管或其他的，后面输入值名称，如外径变成内劲。计算公式也跟着变，也就点前面的复选框，公式就变

第 4 楼

得分:0

以下是引用沉默的痞子在2015-10-9 08:10:59的发言：

你这个只是一个界面，效果呢？

就是点前面的钢管或其他的，后面输入值名称，如外径变成内劲。计算公式也跟着变，也就点前面的复选框，公式就变

第 5 楼

得分:0

那叫单选吧。
你能不能自己先实现一个？如果实现了一个，实现多个就简单了。

能编个毛线衣吗？

第 6 楼

得分:0

如果只是自己用的话Excel已经足够，犯不着用VB编写界面。或者上网找一下型材计算，我记得有这样的软件的。

计算公式也跟着变，也就点前面的复选框，公式就变

这个其实十分简单，判断语句就可以.

第 7 楼

得分:0

以下是引用wmf2014在2015-10-9 10:04:00的发言：

那叫单选吧。
你能不能自己先实现一个？如果实现了一个，实现多个就简单了。

实现一个没问题，新手嘛，后面的就不知道如何写了

第 8 楼

得分:0

以下是引用xiangyue0510在2015-10-9 10:19:55的发言：

如果只是自己用的话Excel已经足够，犯不着用VB编写界面。或者上网找一下型材计算，我记得有这样的软件的。

这个其实十分简单，判断语句就可以.

主要是为是工作方便，EXCEL毕竟没这方便

第 9 楼

得分:5

回复 8楼 ycpyxl

类型这边用单击事件，右边就是当左边的事件为true是，值改一下

第 10 楼

得分:15

回复楼主 ycpyxl

你主要是想获取文本框填入的数据用于计算吧？直接读取即可。如
dim diameter as single
diameter=val(text1.text)  '获取你输入的值，并转换为可用于计算的浮点型，然后该用什么公式就把diameter套进公式里去算

Private Sub cmdCaculation_Click()   '处理点击“计算”按钮的事件
If Option1.Value=True Then
   '使用与单选钮１相应的公式
   Exit Sub
End if
If Option2.Value=True Then
   '使用与单选钮２相应的公式
   Exit Sub
End if
'其他单选钮照此操作
End Sub