Visual Basic

JayKhatri wrote:

Is there still any Ray of Light as I have spoken to my senior who is less interested to select another sql db.

I are Troll

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