qcx1221的博客

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

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

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

Private Sub Form_Click() Print Font.Size = 14 Font.Name = "华文行楷" Print Tab(45); Year(Date) & "年" & Month(Date) & "月份图书销售排行" CurrentY = 700 Font.Size = 9 Font.Name = "宋体"

驱动器列表框(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

改变当前盘符Private Sub Command1_Click() ChDrive Drive1.List(Drive1.ListIndex) Unload Me Load Form2 Form2.Show Drive1.RefreshEnd Sub

常用的文件操作函数Private Sub Form_Click() Dim mypath mypath = CurDir Print mypath mypath = CurDir("C") Print mypath Dim strtime strtime = FileDateTime("D:\百川教育") Print strtime

API函数copyfile。1、Copy 方法 描述 把一个指定的文件或文件夹从一个地方复制到另一个地方。 语法 object.Copy destination[, overwrite] Copy 方法语法有如下几部分： 部分 描述 object 必需的。始终是一个 File 或 Folder 对象的名字。 destination 必需

清理字符串Private Sub Command1_Click() Dim i As Integer Dim tex As String If Text1.Text = "" Then MsgBox "请输入字符串", vbInformation, "信息提示" Else tex = Trim(Text1.Text) i

翻转图片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

input语句Private Sub Command1_Click() With CommonDialog1 .InitDir = App.Path .Filter = "文本文件|*.txt" .ShowOpen End With Open CommonDialog1.FileName For Binary As 1

自定义坐标系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:

重做网格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

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

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

计算面积 子过程Private Sub Command1_Click() area Text1.Text, Text2.TextEnd SubPrivate Sub area(length, width) Label1.Caption = length * widthEnd Sub

数组元素插入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

列表交换Private Sub List1_DblClick()List2.AddItem List1.TextList1.RemoveItem List1.ListIndexEnd SubPrivate Sub List2_Click()List1.AddItem List2.TextList2.RemoveItem List2.ListIndexEnd Sub

使用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

用户登录**form1:**Private Sub Command1_Click() If Text1.Text <> "" Then If Text2.Text = "" Then MsgBox "请输入密码！" Exit Sub Else Form2.Show

文本实例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

正则表达式：regulax expression，简称regex 1、使用正则表达式进行搜索。 例：要把car、CAR、Car都找出来，而不将scar、carry找出来 \b[Cc][Aa][Rr]\b 2、使用正则表达式进行替换。 3、什么是正则表达式：是一些用来匹配和处理文本的字符串。4、匹配任意字符 .a..xls（\为转义字符）

1、对于单个字符的编码，Python提供了ord()函数获取字符的整数表示，chr()函数把编码转换为对应的字符：2、要计算str包含多少个字符，可以用len()函数：3、len()函数计算的是str的字符数，如果换成bytes，len()函数就计算字节数：>>> len(‘中文’.encode(‘utf-8’))4、由于Python源代码也是一个文本文件，所以，当你的源代码中包含中文的时候，在保存

菜单改变背景色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

为工具栏添加事件代码Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button) Select Case Button.Key Case "add" Case "modify" Case "delete" Case "save" Case

选择月份Private Sub Form_Load() Dim i% For i = 1 To 12 List1.AddItem i & "月" Next iEnd Sub

树状控件示例Private Sub Form_Load() Dim nodex As Node Dim i As Integer TreeView1.Style = tvwTreelinesPlusMinusPictureText TreeView1.BorderStyle = ccFixedSingle Dim a a = Array("(01)工程

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个

由于程序比较简单，所以没有加什么注释。所有的程序都给出了完整的运行代码，并在我的VC环境 下运行通过。因为没有涉及MFC和WINDOWS的内容，所以在BORLAND C++的平台上应该也不会有什么 问题的。在代码的后面给出了运行过程示意，希望对理解有帮助。1.冒泡法： 这是最原始，也是众所周知的最慢的算法了。他的名字的由来因为它的工作看来象是冒泡：#include <iostream.h>vo

多级树状视图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

选择排序法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)

网上找到的常用正则表达式，留着以后可能用得上，正则表达式实在是不好写，只好拿来主义了，在Delphi中没有自己带有正则表达式的组件，靠第三方了，都说PerlRegEx 是首选, 去这里下载，官方网站: http://www.regular-expressions.info/delphi.html。另外，万一老师在他的博客上写了PerRegEx的使用，可以去看看：http://www.cnblogs.