BasicNET代码(AutoCAD二次开发供电).doc
内容介绍
Public Class Myform1Private Sub Myform1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs)
'TODO: 这行代码将数据加载到表“MytestDataSet.KK”中。
您可以根据需要移动或移除它。
Me.KKTableAdapter.Fill(Me.MytestDataSet.KK)
End Sub
Public Function Max(ByVal X As Double, ByVal Y As Double) As Double
If X >= Y Then
Max = X
Else
Max = Y
End If
End Function
Public Function Min(ByVal x As Double, ByVal y As Double) As Double
If x >= y Then
Min = y
Else
Min = x
End If
End Function
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Dim TestStr As String = ""
Dim i As Integer = MytestDataSet.Tables(0).Rows.Count
下载地址
进入下载页
文件大小
未知
上传作者
xiao0947
文件类型
.doc