 |
久久建筑網(wǎng)(brightonrobinsfc.com)致力打造一個專業(yè)的建筑學習分享平臺！ | 用戶登錄 免費注冊 | 投訴舉報 幫助 | 會員中心 | 上傳資料 |
BasicNET代碼(AutoCAD二次開發(fā)供電).doc
資料評價：
☆☆☆☆☆
生成時間：
2021-01-28
下載權限：
免費會員
文件大�。�
未知
文件類型：
.doc
瀏覽次數(shù)：
2
建筑論壇：
上傳會員：
xiao0947
所屬欄目：
AutoCAD教程
下載地址：
資料是由會員“xiao0947”上傳到本平臺，如有不妥請聯(lián)系客服。違規(guī)侵權投訴
Public Class Myform1
Private Sub Myform1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs)
'TODO: 這行代碼將數(shù)據(jù)加載到表“MytestDataSet.KK”中。
您可以根據(jù)需要移動或移除它。
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
Private Sub Myform1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs)
'TODO: 這行代碼將數(shù)據(jù)加載到表“MytestDataSet.KK”中。
您可以根據(jù)需要移動或移除它。
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
BasicNET代碼(AutoCAD二次開發(fā)供電) 下載地址
本類欄目導航
熱門推薦
點擊排行
猜你還喜歡
水利工程：
水利施工方案
水利考試
水利專業(yè)資料
水利軟件
水利論文
安裝工程：
設備安裝圖紙
安裝工程專業(yè)資料
安裝施組設計
專題