VB MSHFLEXGRID MSHFLEXGRID 同时选中不连续的多行
在工程中添加一个类模块，名为 Selection
然后加入以下代码：
Dim colRows As Collection
Dim ControlKey As Boolean
Public WithEvents flx As MSFlexGrid
Public Sub ToggleSelection()
Dim x As Integer
Dim d
Dim mode As Boolean
Dim OldRow, OldCol
x = flx.Row
If x = 0 Then Exit Sub
On Error Resume Next
OldRow = flx.Row
OldCol = flx.col
d = colRows(CStr(x))
If Err Then ' not add
colRows.Add x, CStr(x)
mode = True
Else
colRows.Remove CStr(x) 'remove
mode = False
End If
MakeSelectedStatus x, mode
相关文档：
工作需要，针对java文件，作了一个行数统计的工具。统计的主要代码如下：
Set srcIn = fso.OpenTextFile(fileNm, ForReading)
Do While Not srcIn.AtEndOfStream
buf = srcIn.ReadLine
&nbs ......
http://blog.donews.com/sloo/archive/2006/01/29/711269.aspx
1.用Microsoft Internet Transfer Control 控件（在部件中添加），代码非常简单，如下（在form上添加一个Inet1和Text1和Command1）：
Private Sub Command1_Click()
Text1.Text = Inet1.OpenURL("http://www.vbgood.com/")
End Sub
2.如果是使用 W ......
如何去优化你的VB程序帮助
1、如何去优化你的VB程序
Visual Basic 作为一种高级编程语言，它也有着不可避免的缺点---开发出的应用程序运行速度慢。如果我们能够程序做一些优化，那么情况将会大大改善。要优化程序运行的实际速度，常用的方法有三种：
1.尽量避免使用 Variant 变量。由于VB不能确定 Variant 变量的� ......
Dim wdapp As Word.Application
Dim wddoc As Word.Document
Dim wdtable As Word.Table
Set wdapp = CreateObject("word.application")
Set wddoc = wdapp.Documents.Add
......
VERSION 5.00
Begin VB.Form Form2
AutoRedraw = -1 'True
Caption = "计算界面"
ClientHeight = 4905
ClientLe ......
