Visual Basic

MA Awan wrote:

Rich Text Box

Imports System.Windows.Forms
Imports System.Runtime.InteropServices
Imports System.Drawing

Public Class ScrollInterceptor
    Inherits NativeWindow

    Private Const WM_HSCROLL As Integer = 276
    Private Const WM_VSCROLL As Integer = 277
    Private Const SIF_TRACKPOS As Integer = &H10
    Private Const SIF_RANGE As Integer = &H1
    Private Const SIF_POS As Integer = &H4
    Private Const SIF_PAGE As Integer = &H2
    Private Const SIF_ALL As Integer = SIF_PAGE Or SIF_POS Or SIF_RANGE Or SIF_TRACKPOS
    Private myLabel As Label
    Private myTextBox As RichTextBox


    <DllImport("user32.dll", SetLastError:=True)> _
    Private Shared Function GetScrollInfo(ByVal hWnd As IntPtr, ByVal n As Integer, ByRef lpScrollInfo As ScrollInfoStruct) As Integer
    End Function

    Private Structure ScrollInfoStruct
        Public cbSize As Integer
        Public fMask As Integer
        Public nMin As Integer
        Public nMax As Integer
        Public nPage As Integer
        Public nPos As Integer
        Public nTrackPos As Integer
    End Structure

    Public Sub New(ByRef callingRichTextBox As RichTextBox, ByRef LabelToUpdateTo As Label)
        Me.AssignHandle(callingRichTextBox.Handle)
        myLabel = LabelToUpdateTo
        myTextBox = callingRichTextBox
    End Sub

    Protected Overrides Sub WndProc(ByRef m As System.Windows.Forms.Message)
        MyBase.WndProc(m)

        Select Case m.Msg
            Case WM_HSCROLL, WM_VSCROLL
                Dim sInfo As New ScrollInfoStruct
                sInfo.fMask = SIF_ALL
                sInfo.cbSize = Len(sInfo)
                GetScrollInfo(m.HWnd, 1, sInfo)
                myLabel.Text = "nPos = " & sInfo.nPos & vbNewLine &
                               "char = " & myTextBox.GetCharFromPosition(New Point(1, sInfo.nPos)) & vbNewLine & _
                               "line = " & myTextBox.GetLineFromCharIndex(myTextBox.GetCharIndexFromPosition(New Point(1, sInfo.nPos)))

        End Select
    End Sub

joselito j. mebolos wrote:

what reference should i use?

C:\Program Files\Common Files\system\ado\msado15.dll

I are Troll

Creamboy wrote:

what about if i'm trying 2 connect my windows application to an online server (like on my website, www.mysite.com)?

Dim tim as Date
tim = now()

Ace Anthony C. Austria wrote:

However, whenever I run the program, it stops when I click cmdSave and Run-Time Error 91 "Object variable or With block variable not set". The highlighted syntax would be the five aforementioned lines involving AdoAudit. The save command for AdoRec, on the other hand, functions properly.

I are Troll

Private Sub cmdSave_Click()

    'enter values for your scenario
    Const connStr As String = "<replace with the connection string to connect to your Access DB>"
    Const tableName As String = "<replace with the table name of the table you wish to save to>"

    'vars
    Dim dbConn As ADODB.Connection
    Dim saveRec As ADODB.Recordset
    
    'initialize & open connection to DB
    Set dbConn = New ADODB.Connection
    dbConn.Open connStr
    
    'initialize & open recordset to table
    Set saveRec = New ADODB.Recordset
    saveRec.Open "SELECT TOP 0 * FROM [" & tableName & "]", dbConn, adOpenDynamic, adLockOptimistic
    
    'create new record
    saveRec.AddNew
    
    'save data to new record
    saveRec("Operation") = "Added or Altered Reference Material"
    saveRec("DateDone") = Format(Now, "mm-dd-yyyy")
    saveRec("TimeDone") = Format(Now, "hh:mm:ss ampm")
    
    'save record
    saveRec.Update
    
    'clean up
    saveRec.Close
    Set saveRec = Nothing
    
    dbConn.Close
    Set dbConn = Nothing

End Sub