Iterate the items in the list

For i = 0 To frmTC.lstCH.ListCount - 1
            Exit For
Next

For loop

Dim j as Integer
For j = 1 To 8
      Exit For
Next

Create a message dialog

File name: frmMain.vb
frmMsgBox.Caption = "Test Item: " & m_arrMeasItem(Index).sName
  Load frmMsgBox
  frmMsgBox.Show vbModal
  If frmMsgBox.DialogResult = vbCancel Then
        Exit Sub
  End If


----
File name: frmMsgBox.vb
Option Explicit
Public DialogResult As VbMsgBoxResult

Private Sub cmdOK_Click()
    
    DialogResult = vbOK
    Unload Me
    
End Sub

Private Sub cmdStop_Click()
    
    DialogResult = vbCancel
    Unload Me
    
End Sub

vb6 goto

reference

SubroutineA:
Dim i As Integer
i = 8

    GoTo SubroutineA

if else in one line

method 1:

CheckIt = IIf(TestMe > 1000, "Large", "Small")

method 2:

i = 1
If i = 1 Then x = 3 : y = 3 Else x = 7 : y = 7

Reference

If ...else statement (Visual Basic)

do while continue

vb6 hasn't continue statement. If you want to use it, you can use goto to do the same thing.

do
if condition then goto continue_do
...
continue_do:
loop

Reference

capture a screenshot of a movie

• How to capture vedio screen shots
• 如何擷取畫面含播放中影片 

• print screen非典型用法 
• How to capture a screenshot of a movie 

浮點數轉小數第幾位

Dim dd As String
dd = CStr(Round(0.942, 4))

set active window

Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
(ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Public Declare Function SetForegroundWindow& Lib "user32" (ByVal hwnd As Long)

then

Public Function ShowWindow(ByVal sWindowName As String)

Dim lWindowHandle As Long
lWindowHandle = FindWindow(vbNullString, Trim(sWindowName))

If lWindowHandle <> 0 Then
SetForegroundWindow (lWindowHandle)
Else
' Error Message
End If

End Function


sWindow name = the title bar of the programs window to be pulled forward.

It works, but inconsistently.

 

http://www.tek-tips.com/viewthread.cfm?qid=31084&page=42

save picturebox as bmp

SavePicture Picture1.Image, "C:\TEMP\BIGHEAD.BMP"

or

SavePicture Picture1.Picture, "C:\TEMP\BIGHEAD.BMP"  

http://social.msdn.microsoft.com/Forums/zh-TW/232/thread/73072d92-0ff3-40f9-81de-6094c8671acf/ 

execute application

Execute the excel file

GetObject("c:\test.xls").Parent.Visible = True

Reference

Execute a executable file 

Shell "notepad.exe"