- 博客(82)
- 资源 (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
564
原创 VB程序学习代码记录20160827
数据库中的表是不允许直接访问的，只有通过recordset对象对其进行浏览及操作。 一个recordset对象表示一个或多个数据库表中的集合，或者运行一次查询所得的记录结果。 记录集对象有3种类型：表类型（DbOpenTable）、动态集类型（DbOpenDynaset）、快照类型（DbOpenSnapshot）Dim DAOmydb1 As DatabaseDim DAOmyrs1 As R
2016-08-27 16:39:52
791
转载 常用正则表达式大全 （转）
网上找到的常用正则表达式，留着以后可能用得上，正则表达式实在是不好写，只好拿来主义了，在Delphi中没有自己带有正则表达式的组件，靠第三方了，都说PerlRegEx 是首选, 去这里下载，官方网站: http://www.regular-expressions.info/delphi.html。另外，万一老师在他的博客上写了PerRegEx的使用，可以去看看：http://www.cnblogs.
2016-08-10 16:15:38
376
原创 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
456
原创 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
298
原创 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
419
原创 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
308
原创 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
273
原创 VB程序学习代码记录20160731
常用的文件操作函数Private Sub Form_Click() Dim mypath mypath = CurDir Print mypath mypath = CurDir("C") Print mypath Dim strtime strtime = FileDateTime("D:\百川教育") Print strtime
2016-07-31 13:02:37
323
原创 VB程序学习代码记录20160730
改变当前盘符Private Sub Command1_Click() ChDrive Drive1.List(Drive1.ListIndex) Unload Me Load Form2 Form2.Show Drive1.RefreshEnd Sub
2016-07-30 15:59:57
317
原创 VB程序学习代码记录20160729
驱动器列表框(DriveListBox控件)Private Sub Command1_Click() Dim i As Integer Dim s As String For i = 0 To Drive1.ListCount - 1 s = s & vbCrLf & Drive1.List(i) Label2.Caption = s
2016-07-29 16:04:04
340
原创 VB程序学习代码记录20160726
多级树状视图Dim cnn As New ADODB.ConnectionDim rs1 As New ADODB.RecordsetDim i As Integer, bmjc As IntegerDim blntj As BooleanDim bmbh As StringPrivate Sub Form_Load() Me.Caption = "部门管理" cnn.Ope
2016-07-26 23:46:48
372
原创 VB程序学习代码记录20160725
树状控件示例Private Sub Form_Load() Dim nodex As Node Dim i As Integer TreeView1.Style = tvwTreelinesPlusMinusPictureText TreeView1.BorderStyle = ccFixedSingle Dim a a = Array("(01)工程
2016-07-25 17:09:03
295
原创 VB程序学习代码记录20160724
为工具栏添加事件代码Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button) Select Case Button.Key Case "add" Case "modify" Case "delete" Case "save" Case
2016-07-24 11:05:25
535
原创 VB程序学习代码记录20160723（2）
菜单改变背景色Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 2 Then PopupMenu MyMenu End IfEnd SubPrivate Sub red_click() Form1.BackC
2016-07-23 23:30:53
433
原创 VB程序学习代码记录20160723
文本实例Private Sub Command1_Click() For i = 0 To 2 If Option1(i).Value = True Then Text1.FontName = Option1(i).Caption End If Next i If Option4(0).Value = True Then
2016-07-23 09:58:34
527
原创 VB程序学习代码记录20160722（2）
用户登录**form1:**Private Sub Command1_Click() If Text1.Text <> "" Then If Text2.Text = "" Then MsgBox "请输入密码！" Exit Sub Else Form2.Show
2016-07-22 22:49:50
388
原创 VB程序学习代码记录20160722
使用API函数enablewindow，禁止所有鼠标和键盘相关操作。Private Declare Function EnableWindow Lib "user32" (ByVal hwnd As Long, ByVal fEnable As Long) As LongPrivate Sub Form_Load() EnableWindow Command1.hwnd, 0End Sub
2016-07-22 14:32:58
502
转载 Copy、CopyFile、FileCopy的用法
API函数copyfile。1、Copy 方法 描述 把一个指定的文件或文件夹从一个地方复制到另一个地方。 语法 object.Copy destination[, overwrite] Copy 方法语法有如下几部分： 部分 描述 object 必需的。始终是一个 File 或 Folder 对象的名字。 destination 必需
2016-07-21 23:00:55
30419
原创 VB程序学习代码记录20160721
清理字符串Private Sub Command1_Click() Dim i As Integer Dim tex As String If Text1.Text = "" Then MsgBox "请输入字符串", vbInformation, "信息提示" Else tex = Trim(Text1.Text) i
2016-07-21 19:51:30
303
原创 VB程序学习代码记录20160719
IsNull函数Private Sub Form_Click() Dim num Print IsNull(num) num = "" Print IsNull(num) num = "abcd" Print IsNull(num) num = Null Print IsNull(num)End Sub
2016-07-19 18:19:07
290
原创 VB程序学习代码记录20160718（2）
abs函数private sub form_click() print abs(50.3) print abs(-50.3)end subexp函数Private Sub Form_Click() Dim myangle, myhsin myangle = 1.3 myhsin = (Exp(myangle) - Exp(-1 * myangle)) / 2
2016-07-18 20:37:25
369
原创 VB程序学习代码记录20160718
计算面积 子过程Private Sub Command1_Click() area Text1.Text, Text2.TextEnd SubPrivate Sub area(length, width) Label1.Caption = length * widthEnd Sub
2016-07-18 14:31:50
755
原创 VB程序学习代码记录20160717
数组元素插入Dim a() As LongPrivate Sub Form_Load() ReDim Preserve a(1 To 4) a(1) = 1: a(2) = 2: a(3) = 3: a(4) = 4 Dim i As Long, m As Long Debug.Print vbNewLine & "原数组元素：" For i = 1 To 4
2016-07-17 16:04:54
287
转载 简单排序算法
由于程序比较简单，所以没有加什么注释。所有的程序都给出了完整的运行代码，并在我的VC环境 下运行通过。因为没有涉及MFC和WINDOWS的内容，所以在BORLAND C++的平台上应该也不会有什么 问题的。在代码的后面给出了运行过程示意，希望对理解有帮助。1.冒泡法： 这是最原始，也是众所周知的最慢的算法了。他的名字的由来因为它的工作看来象是冒泡：#include <iostream.h>vo
2016-07-15 14:44:36
155
原创 VB程序学习代码记录20160715
选择排序法Dim a(9) As LongPrivate Sub Command1_Click() Dim i As Long, l As Long, n As Long For i = 0 To 9 For l = i To 9 If a(i) > a(l) Then n = a(i)
2016-07-15 14:18:42
304
原创 VB程序学习代码记录20160714
VB常用的数据类型有：整型（Integer，表示-32768至32767之间的整数）长整型（Long，表示-2,147,483,648至2,147,483,647之间的整数）实型（Single，表示-3.37E+38至3.37E+38之间的实数）双精度实型（Double，表示-1.67E+308至1.67E+308之间的实数）字符（String，每个字符占一字节，可以储存0～65,535个
2016-07-14 15:59:16
559
原创 VB程序学习代码记录20160713
选择月份Private Sub Form_Load() Dim i% For i = 1 To 12 List1.AddItem i & "月" Next iEnd Sub
2016-07-13 22:11:12
252
原创 VB程序学习代码记录20160711
列表交换Private Sub List1_DblClick()List2.AddItem List1.TextList1.RemoveItem List1.ListIndexEnd SubPrivate Sub List2_Click()List1.AddItem List2.TextList2.RemoveItem List2.ListIndexEnd Sub
2016-07-11 08:21:05
291
原创 VB程序代码学习记录20160710
Private Sub C1_Click()If Shape1.Visible = True Then Shape1.Visible = False Shape2.Visible = TrueElseIf Shape2.Visible = True Then Shape2.Visible = False Shape3.Visible = TrueElse
2016-07-10 18:17:11
241
原创 VB程序代码学习记录20160709
Private Sub Form_Click() Print Font.Size = 14 Font.Name = "华文行楷" Print Tab(45); Year(Date) & "年" & Month(Date) & "月份图书销售排行" CurrentY = 700 Font.Size = 9 Font.Name = "宋体"
2016-07-09 10:18:57
354
原创 [Python] 利用Python做汉诺塔问题递归
首先初始化这个问题： 设三根柱子分别为A、B和C，圆环个数为n且位于A，目标柱子是C。然后抽象地看待这个问题： 从下往上看问题：假设把底盘n移动到C后，由于底盘n将不会再有任何移动，这时实际上就可以无视n了。于是第n-1个（初始状态的倒数第二个）环成为新的底盘，将n-1移动到C后，同样可以无视之。以此类推，不停地无视底盘、简化圆环个数：n-2，n-3……剩5个圆环、4个、3个……最后其实就剩下2
2016-07-06 10:39:18
507
原创 [Python] 使用python的随机验证码。
from PIL import Image, ImageDraw,ImageFont, ImageFilterimport random# 随机字母（含大小写）def rndChar(): return chr(random.randint(65,122)) # 随机数字def rndInt(): return chr(random.randint(48,57))# 随机颜色1
2016-07-06 10:37:51
436
原创 Python学习笔记 20160615
1、对于单个字符的编码，Python提供了ord()函数获取字符的整数表示，chr()函数把编码转换为对应的字符：2、要计算str包含多少个字符，可以用len()函数：3、len()函数计算的是str的字符数，如果换成bytes，len()函数就计算字节数：>>> len(‘中文’.encode(‘utf-8’))4、由于Python源代码也是一个文本文件，所以，当你的源代码中包含中文的时候，在保存
2016-06-15 16:53:31
176
原创 正则表达式学习1：
正则表达式：regulax expression，简称regex 1、使用正则表达式进行搜索。 例：要把car、CAR、Car都找出来，而不将scar、carry找出来 \b[Cc][Aa][Rr]\b 2、使用正则表达式进行替换。 3、什么是正则表达式：是一些用来匹配和处理文本的字符串。4、匹配任意字符 .a..xls（\为转义字符）
2016-06-15 15:27:23
190
原创 C primer plus 第十一章 练习3：
/*=========================================================================== 设计并测试一个函数，其功能是读取输入行里的第一个单词到数组，并丢掉该行中的而其他字符。一个单词的定义是一串字符，其中不含空格、制表符和换行符。=============================================
2016-06-07 11:59:08
552
原创 C primer plus 第十一章 练习2：
/*=========================================================================== 修改并测试练习1重点额函数，使得可以在n个字符后，或第一个空格、制表符、换行符后停止读取输入，由上述情况中最先被满足的那个终止读取（不能用scanf()函数。======================================
2016-06-07 10:00:23
513
原创 C primer plus 第十一章 练习1：
/*=========================================================================== 设计并测试一个函数，可以从输入读取n个字符（包括字符、制表符和换行符），把结果存储在一个数组中，这个数组的地址通过参数来传递。=====================================================
2016-06-06 23:09:00
500
原创 C primer plus 第十章 练习12：
/*======================================================================================= 编写一个程序，提示用户输入3个数集，每个数集包括5个double值。程序应当实现以下功能： a. 把输入信息存储到一个3*5的数组中 b. 计算出每个数集（包含5个数值）的平均值 c.
2016-06-04 16:30:50
483
原创 C primer plus 第十章 练习11：
/*======================================================================= 重写程序清单10.7的程序rain, main()中的主要功能改为由函数来执行。=======================================================================*/#includ
2016-06-04 00:02:01
199
python学习路线推荐？
2016-06-16
TA创建的收藏夹 TA关注的收藏夹
TA关注的人