VB
关注
分享
扫一扫
always007
这个作者很懒，什么都没留下…
展开
-
VB
https://wenku.baidu.com/view/ad418824a45177232f60a2bd.html转载 2017-10-25 17:17:21 · 238 阅读 · 0 评论 -
VB→mysql
Public Function sqlserveropen() As Boolean Try 'mySQL 認証を利用して接続 Dim Builder = New MySqlConnectionStringBuilder() Builder.Server = "loca原创 2017-11-23 23:36:56 · 449 阅读 · 0 评论 -
如何在VB中设置一个提示框,有"确定","取消"2个按钮
我是vb.net的，我的做法是Msgbox = ("你确定要继续吗",msgboxstyle.okcancel,"提示")原创 2017-11-21 13:18:17 · 7310 阅读 · 0 评论 -
vb读取excel中的数据并在窗体上显示
Public ExcelTable As Workbook 'excel 工作表对象Private TextBoxA() As Control '以编辑框为基础动态构造数据网格Private FormWidth As Integer '窗体宽度'以下子程序是用来建立数据网格Sub CreateGrid(No, Data) For转载 2017-11-20 17:23:13 · 18965 阅读 · 5 评论 -
8460
Public Function sqlserveropen() As Boolean Try '接続する端末名 Dim ServerName As String = "192.168.10.31" '接続するデータベース名 Dim DBName As String =原创 2017-11-20 16:43:34 · 280 阅读 · 0 评论 -
VB test
Sub test() MsgBox ("test") ' 剪切第10行，插入第2行 rr = 10 ir = 2 'Sheets("Sheet2").Rows(rr).Cut mm = Sheets("Sheet2").Cells(rr, 2).Value Sheets("Sheet1").Rows(ir原创 2017-11-20 15:26:21 · 539 阅读 · 0 评论 -
vb读取excel的内容
https://wenku.baidu.com/view/e306a79f168884868662d603.html转载 2017-11-20 15:23:00 · 2702 阅读 · 2 评论 -
VB Select Case
Sub gantest() rr = 10 ir = 2 MsgBox ("OK") i = Sheets("Sheet1").Cells(rr, 2).Value Select Case Sheets("Sheet1").Cells(rr, 2).ValueCase Is 'Print iMsgBox ("こちらは設置1のデータ")Case原创 2017-11-20 15:01:50 · 1611 阅读 · 0 评论 -
Cell
Sub test() MsgBox ("test") ' 剪切第10行，插入第2行 rr = 10 ir = 2 Sheets("Sheet2").Rows(rr).Cut mm = Sheets("Sheet2").Cells(rr, 2).Value Sheets("Sheet1").Rows(ir)原创 2017-11-20 13:56:47 · 293 阅读 · 0 评论 -
VB基礎
Sub test() MsgBox ("test") ' 剪切第10行，插入第2行 rr = 10 ir = 2 Sheets("Sheet2").Rows(rr).Cut Sheets("Sheet1").Rows(ir).Insert Shift:=xlDown MsgBox ("TR")End原创 2017-11-20 13:42:41 · 240 阅读 · 0 评论 -
VB基本函数大全
Abs 函数： 返回数的绝对值。 And 运算符： 执行两个表达式的逻辑连接。 Array 函数： 返回含一数组的变体 。 Asc 函数： 返回字符串首字母的 ANSI 字符代码。 赋值运算符 (=)：给变量或属性赋值。 Atn 函数 ：返回数的反正切值。 调用语句 将控制移交 Sub 或 Function 过程。 CBool 函数： 返回已被转换为 Boo转载 2018-01-15 17:18:05 · 27419 阅读 · 1 评论