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

#2

沉默的痞子2015-10-09 08:10

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

#3

ycpyxl2015-10-09 09:34

回复楼主 ycpyxl

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

#4

ycpyxl2015-10-09 09:35

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

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

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

#5

wmf20142015-10-09 10:04

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

#6

xiangyue05102015-10-09 10:19

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

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

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

#7

ycpyxl2015-10-09 13:55

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

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

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

#8

ycpyxl2015-10-09 13:56

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

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

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

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

#9

沉默的痞子2015-10-09 15:00

回复 8楼 ycpyxl

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

#10

yangfrancis2015-10-09 17:36

回复楼主 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

#11

h576497619m2015-10-22 17:59

excel完全可以做到，也很方便