易截截图软件、单文件、免安装、纯绿色、仅160KB

无意中发现VB For循环的一个特点

无意中发现VB For循环的一个特点:在循环体中,企图改变循环终止变量使之提前退出循环是徒劳的。
Private Sub Form_Load()
  Dim s(0 To 4) As String
  Dim N As Integer, i As Integer
  s(0) = "测试1"
  s(1) = "测试2"
  s(2) = "测试3"
  s(3) = "测试4"
  s(4) = "测试5"
  N = 4
  For i = 0 To N
    '在循环体中,企图改变循环终止变量使之提前退出循环是徒劳的。
    '只有 判断【循环变量】是否大于【循环终止变量】来提前退出才是可行的,如:If i > N Then Exit For
    Debug.Print s(i)
    If i = 0 Or i = 3 Then N = N - 1
  Next i
  MsgBox "i====" & i & " N==" & N
End Sub


相关文档:

vb批量打印数据库中的照片

Private Sub Command12_Click()
Dim i As Integer
On Error GoTo ABC
ShowPrinterSetup Me
For i = 1 To Adodc1.Recordset.RecordCount
If Picture2.Picture <> LoadPicture("") Then
  
    Printer.PaintPicture Picture2.Picture, 200, Picture1.Top + 1000
Else
   ......

VB调用系统的"打印机设置"和"页面设置".

VB调用系统的"打印机设置"和"页面设置".
Option Explicit
Const FW_NORMAL = 400
Const DEFAULT_CHARSET = 1
Const OUT_DEFAULT_PRECIS = 0
Const CLIP_DEFAULT_PRECIS = 0
Const DEFAULT_QUALITY = 0
Const DEFAULT_PITCH = 0
Const FF_ROMAN = 16
Const CF_PRINTERFONTS = &H2
Const C ......

让VB菜鸟最快写出自己的外挂

这年头,在这个论坛里面已经没有什么技术贴了...呵呵~发一篇惊天地,泣鬼神的帖子.当然这个只是模拟键盘的终极模拟.呵呵~
     键盘是我们使用计算机的一个很重要的输入设备了,即使在鼠标大行其道的今天,很多程序依然离不开键盘来操作。但是有时候,一些重复性的,很繁琐的键盘操作总会让人疲惫,于是 ......

vb与数据库

VB数据库操作实例
2008-02-22 05:49
   VB数据库操作对很多初学者朋友感到比较吃力,目前教材中的实例对数据库操作都比较单一,很多朋友提议我做一个包括浏览、添加、修改、删除功能的数据库操作实例,下面这个实例就是一个这样的数据库操作实例。
   《书库管理系统》是一个最简单的数据库操作实例 ......
© 2009 ej38.com All Rights Reserved. 关于E健网联系我们 | 站点地图 | 赣ICP备09004571号