- 博客(8)
- 资源 (1)
- 问答 (1)
- 收藏
- 关注
RSS订阅原创 VB程序学习代码记录20160828
Dim cnn As New ADODB.ConnectionDim rs As New ADODB.RecordsetPrivate Sub Form_Load() cnn.Open "driver={microsoft access driver (*.mdb)};DBQ=" & App.Path & "\db_kfgl.mdb" rs.Open "kf", cnn, adOp
2016-08-28 15:28:25
578
原创 VB程序学习代码记录20160827
数据库中的表是不允许直接访问的，只有通过recordset对象对其进行浏览及操作。 一个recordset对象表示一个或多个数据库表中的集合，或者运行一次查询所得的记录结果。 记录集对象有3种类型：表类型（DbOpenTable）、动态集类型（DbOpenDynaset）、快照类型（DbOpenSnapshot）Dim DAOmydb1 As DatabaseDim DAOmyrs1 As R
2016-08-27 16:39:52
816
转载 常用正则表达式大全 （转）
网上找到的常用正则表达式，留着以后可能用得上，正则表达式实在是不好写，只好拿来主义了，在Delphi中没有自己带有正则表达式的组件，靠第三方了，都说PerlRegEx 是首选, 去这里下载，官方网站: http://www.regular-expressions.info/delphi.html。另外，万一老师在他的博客上写了PerRegEx的使用，可以去看看：http://www.cnblogs.
2016-08-10 16:15:38
396
原创 VB程序学习代码记录20160805
重做网格Private Sub Command1_Click() Form1.Refresh Dim w, h As Integer Dim x, y As Integer Dim i As Integer w = Form1.ScaleWidth h = Form1.ScaleHeight x = Int(w / Val(Combo1.Tex
2016-08-05 14:35:59
484
原创 VB程序学习代码记录20160804
翻转图片Dim sp As BooleanDim cz As BooleanPrivate Sub Command1_Click(Index As Integer) Dim pic As StdPicture Dim w, h As Integer w = Picture1.Width h = Picture1.Height Set pic = Pictur
2016-08-04 21:34:42
323
原创 VB程序学习代码记录20160803
自定义坐标系Private Sub Form_activate() Form1.Scale (-100, 100)-(100, -100) Line (-100, 0)-(300, 0) Line (0, 100)-(0, -150) DrawWidth = 10 Form1.Circle (0, 0), 0, vbRed CurrentX = 0:
2016-08-03 14:16:49
440
原创 VB程序学习代码记录20160802
excel导出为txtPrivate Sub Command1_Click() Dim i As Integer, r As Integer Dim newxls As Excel.application Dim newbook As Excel.workbook Dim newsheet As Excel.Worksheet Set newxls = Cre
2016-08-02 15:41:03
326
原创 VB程序学习代码记录20160801
input语句Private Sub Command1_Click() With CommonDialog1 .InitDir = App.Path .Filter = "文本文件|*.txt" .ShowOpen End With Open CommonDialog1.FileName For Binary As 1
2016-08-01 23:15:55
301
python学习路线推荐？
2016-06-16
TA创建的收藏夹 TA关注的收藏夹
TA关注的人