 |
久久建筑网(m.kkreddy.com)致力打造一个专业的建筑学习分享平台！ | 用户登录 免费注册 | 投诉举报 帮助 | 会员中心 | 上传资料 |
BasicNET代码(AutoCAD二次开发供电).doc
资料评价：
☆☆☆☆☆
生成时间：
2021-01-28
下载权限：
免费会员
文件大小：
未知
文件类型：
.doc
浏览次数：
2
建筑论坛：
上传会员：
xiao0947
所属栏目：
AutoCAD教程
下载地址：
资料是由会员“xiao0947”上传到本平台，如有不妥请联系客服。违规侵权投诉
Public Class Myform1
Private 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
Private 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
BasicNET代码(AutoCAD二次开发供电) 下载地址
本类栏目导航
热门推荐
点击排行