Visual Basic

Dim ds As DataSet
' code to fill DataSet with a couple of tables...
Dim arraySize As Integer
arraySize = ds.Tables("whatever").Rows.Count
Dim myArray(arraySize) As String
.
.
.

<br />
Imports System.Runtime.InteropServices<br />
Module modGetWinMsg<br />
    Private Declare Function SetWindowsHookEx Lib "user32" Alias "SetWindowsHookExA" (ByVal idHook As Integer, ByVal lpfn As GetWinMsgDelete, ByVal hmod As Integer, ByVal dwThreadId As Integer) As Integer<br />
<br />
    Private Declare Function CallNextHookEx Lib "user32" Alias "CallNextHookEx" (ByVal hHook As Integer, ByVal ncode As Integer, ByVal wParam As Integer, ByVal lParam As MSG) As Integer<br />
<br />
    Private Declare Function UnhookWindowsHookEx Lib "user32" Alias "UnhookWindowsHookEx" (ByVal hHook As Integer) As Integer<br />
<br />
    Private Const WH_GETMESSAGE As Integer = 3<br />
<br />
    Private Const WM_PASTE As Integer = &H302<br />
<br />
    Dim hRet As Integer<br />
<br />
    Private Structure MSG<br />
        Private hwnd As Integer<br />
        Private message As Integer<br />
        Private wParam As Integer<br />
        Private lParam As Integer<br />
        Private time As Integer<br />
        Private pt As POINTAPI<br />
    End Structure<br />
<br />
    Private Structure POINTAPI<br />
        Private x As Integer<br />
        Private y As Integer<br />
    End Structure<br />
<br />
    Private Delegate Function GetWinMsgDelete(ByVal nCode As Integer, _<br />
                                           ByVal wParam As Integer, _<br />
                                           ByVal lParam As MSG) As Integer<br />
    Private Function proGetWinMsg(ByVal nCode As Integer, ByVal wParam As Integer, ByVal lParam As MSG) As Integer<br />
        If nCode = 0 Then<br />
            If wParam = WM_PASTE Then<br />
                MessageBox.Show("asdfsad")<br />
                Return 1<br />
            End If<br />
            Return CallNextHookEx(hRet, nCode, wParam, lParam)<br />
        End If<br />
    End Function<br />
    Public Sub GetMsg()<br />
        hRet = SetWindowsHookEx(WH_GETMESSAGE, AddressOf proGetWinMsg, Marshal.GetHINSTANCE(System.Reflection.Assembly.GetExecutingAssembly.GetModules()(0)).ToInt32, 0)<br />
    End Sub<br />
    Public Sub Unhook()<br />
        If hRet <> 0 Then<br />
            UnhookWindowsHookEx(hRet)<br />
            hRet = 0<br />
        End If<br />
    End Sub<br />
End Module

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load<br />
        GetMsg()<br />
    End Sub<br />
<br />
    Private Sub Form1_Closing(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles MyBase.Closing<br />
        Unhook()<br />
    End Sub

Dim strArray(40) As String

Dim strArray() As String
 
ReDim strArray(new size)
strArray(elementNumber) = "something"

Public Module Foo
   Public Sub Test()
   End Sub
End Module

Public Class Bar
   Public Sub Main()
      Foo.Test()    ' Can be called like this.
      Test()        ' Or like this, without specifying the module name.
   End Sub
End Class

shiroamachi wrote:

how about connection and recordset object? Do we need to call the close method and set the object to nothing?

shiroamachi wrote:

When to call open and close method of connection and recordset object in a procedure/function with try catch? Is it ok to put in "finally" ?

try<br />
dim con as connection<br />
dim rs as recordset<br />
con.open()<br />
rs = con.execute(sqlstring)<br />
<br />
catch ex as Exception<br />
<br />
msgbox "error"<br />
exit sub<br />
<br />
finally<br />
<br />
rs.close()<br />
con.close()<br />
<br />
end try

shiroamachi wrote:

assume there's error in con.open() and the error was catch and then do finally. in finally, because of rs is not yet open, will cause error cant close object that isnt open. How to resolve this problem?

if con.State = adStateOpen then
   con.Close()
end if