如何实现参数绘图？利用access提供数据，vba编程，有源码最好，谢谢！
如何实现参数绘图？利用access提供数据，vba编程，有源码最好，谢谢！如何实现参数绘图？利用access提供数据，vba编程，有源码最好，谢谢！如何实现参数绘图？利用access提供数据，vba编程，有源码最好，谢谢！给你一个我写的画弯头的简单例子，希望对你有所帮助。
Private Sub ListDR() '刷新外径,和弯头半径If Trim(ComboBox1.Text) = "" Then'从COMBOBOX1获得弯头的公称直径描述
TextBox1.Text = ""
TextBox3.Text = ""
Exit Sub
End If
Dim strCon As String, strSel As String
strCon = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\temp.mdb;Persist Security Info=False"'弯头的详细尺寸参数列在temp.mdb内
strSel = "select * from Bellows where DN='" & Trim(ComboBox1.Text) & "'" '获得所选规格的记录的select语句
Dim rs As New ADODB.Recordset
rs.LockType = adLockReadOnly
rs.Open strSel, strCon
If rs.BOF = True And rs.EOF = True Then '空记录
rs.Close
TextBox1.Text = ""
TextBox3.Text = ""
Exit Sub
End If
If OptionButton5.Value = True Then
TextBox1.Text = CStr(rs("A")) 'A系列的直径
Else
TextBox1.Text = CStr(rs("B")) 'B系列的直径
End If
TextBox3.Text = CStr(rs(strRType)) '弯曲中心半径
rs.Close
End Sub
根据中心半径和管子直径编写绘图模块，就可以画出来了，还可以加入壁厚等其他参数。
页:
[1]