Visual Basic

S0FTDEV wrote:

It is an Extension DLL or a Regular Dll , if an extension dll then it can be used for the Same language in which it is written

instance.Image = ColorImage(instance.Image, newColor)


Private Function ColorImage(ByRef theImage As System.Drawing.Bitmap, _
                            ByRef theColor As System.Drawing.Color) _
                            As System.Drawing.Bitmap
    Dim x, y As Integer

    For y = 12 To 15
        For x = 0 To 15
            theImage.SetPixel(x, y, theColor)
        Next
    Next
    ColorImage = theImage
End Function

Private lClientNumber As Long               ' the uniquenumber that was passed from the calling program
   '                                       ' This is the ClientNumber.
   Private tPassedMode As String               ' mode we are in "ADD", "EDIT", "VIEW"
   '
   Private bInquireOnly As Boolean
   Private bDataChanged As Boolean
   Private bFieldChanged As Boolean
   Private bExistingRecord As Boolean
   Private myCommand As New MySqlCommand
   Private tVarArray(100, 3) As String
   '
   Private lStateNum() As Long
   Private lSCNumber() As Long
   Private lRaceNumber() As Long
   Private lLanguageNumber() As Long
   Private lLegalStatusNumber() As Long
   Private lMaritalStatusNumber() As Long
   Private lGender() As Long
   Private lCountyOfResidence() As Long
   '
   Private ClientDatesAnnuals As frmClientDatesAnnuals = frmClientDatesAnnuals
   Private ClientContacts As frmClientContacts = frmClientContacts
   Private ClientPickups As frmClientPickups = frmClientPickups
   Private ClientDatesIPPIFSP As frmClientDatesIPPIFSP = frmClientDatesIPPIFSP
   Private ClientDatesPsyc As frmClientDatesPsyc = frmClientDatesPsyc
   Private ClientDayHab As frmClientDayHab = frmClientDayHab
   Private ClientDietary As frmClientDietary = frmClientDietary
   Private ClientExtendedCare As frmClientExtCare = frmClientExtCare
   Private ClientFileStorage As frmClientFileStorage = frmClientFileStorage
   Private ClientFinancialScreen As frmClientFinancialScreen = frmClientFinancialScreen
   Private ClientFirstConnection As frmClientFrstConn = frmClientFrstConn
   Private ClientHearScreen As frmClientHearingScreening = frmClientHearingScreening
   Private ClientIdentification As frmClientIdentification = frmClientIdentification
   Private ClientIndividualCounseling As frmClientIndivCounsel = frmClientIndivCounsel
   Private ClientImmunizations As frmClientImmunizations = frmClientImmunizations
   Private ClientMedical As frmClientMedical = frmClientMedical
   Private Notes As sha_frmNotes = sha_frmNotes
   Private ClientPublicSchool As frmClientPublicSchool = frmClientPublicSchool
   Private ClientTherapyOT As frmClientTherapyOT = frmClientTherapyOT
   Private ClientTherapyST As frmClientTherapyST = frmClientTherapyST
   Private ClientTherapyPT As frmClientTherapyPT = frmClientTherapyPT
   Private ClientTransportation As frmClientTransportation = frmClientTransportation
   Private ClientVisionScreen As frmClientVisionScreening = frmClientVisionScreening
   Private ClientConsentToInvite As New frmClientConsentToInvite
   Private RefDates As frmRefDates = frmRefDates
   Private RefDetails As frmRefDetails = frmRefDetails
   Private RefEvals As frmRefEvals = frmRefEvals

Private hiddenX as frmX
Property X as frmX
    If hiddenX isNothing
        hiddenX=new frmX
    Endif
    Return hiddenX
End Property

Private ClientDatesAnnuals As frmClientDatesAnnuals

Private ReadOnly Property DateAnnuals() As frmClientDatesAnnuals
    Get
        If ClientDatesAnnuals Is Nothing Then
            ClientDatesAnnuals = New frmClientDatesAnnuals
        End If
        Return ClientDatesAnnuals
    End Get
End Property

Private Sub frmClientCommon1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing

        ' close any sub forms that are open ...
        If fbFormInstanceExists(ClientContacts) Then
            If ClientContacts.bDataChangeStatus Then
                MsgBox("Information Has Been Changed On The 'Client Emergency Contacts' Screen, But Has Not Been Saved.  " & _
                    "Please save the information on this form prior to closing.", MsgBoxStyle.Exclamation, Me.Text)
                ClientContacts.TopMost = True
                e.Cancel = True
                Exit Sub
            Else
                ClientContacts.Close()
                ClientContacts.Dispose()
            End If
        End If
End Sub

 Private Sub sHandleCommand(ByVal sender As Object, ByVal e As CommandClickEventArgs)
 Select Case e.Command.Text
            Case "Emergency Contacts"
                If Not fbFormInstanceExists(ClientContacts) Then
                    ClientContacts = New frmClientContacts
                End If
                ClientContacts.tMode = tPassedMode
                ClientContacts.lClientUniqueNumber = lClientNumber
                ClientContacts.tClientName = ftFormatClientName(txtFirstName.Text, _
                            txtMiddleName.Text, txtLastName.Text, "2")
                Me.Cursor = Cursors.WaitCursor
                ClientContacts.Show()
                ClientContacts.BringToFront()

            Case "BLAH"
                'Same stuff different form
            Case "BLah2" 'etc
 End Select

Daniel Engelkes wrote:

It does not print the in the same way on how it looks in notepad

'Read each line into an array and then put each array into a Generic.List(Of Array)
' Then do something like this in the PrintPage Event...

Dim l As Single = e.MarginBounds.Left    ' Left margin
Dim y as Single = e.MarginBounds.Top     ' Top margin
Dim h as Integer = 18                    ' Row Height
Dim ws() As Single = {100, 50, 50, 50)   ' Column widths
Dim sfs() As StringFormat = {StringFomat.Alignment.Far, StrngFormat.Alignment.Centre, _
                             StringFormat.Alignment.Near, StringFormat.Far}
Dim cuRow As Integer = 0
Dim linesReq As Integer = coll.Count - 1

Dim fnt as New Font("Courier New", 10, FontStype.Regular)
Dim pageline as Integer = 1
Dim linesPerPage as Integer = Math.Floor((e.MarginBounds.Bottom-y)/h)

For i as Integer = curRow to coll.Count -1
  Do While (pageLine <= linesPerPage) And (curRow <= linesReq)
    PrintText(e, coll.Item(curRow), l, y, ws, h, fnt, Brushes.Black, sfs())
    y += h
    pageLine += 1
    curRow += 1
  Loop

  If (cuRow > linesReq)
     Exit For
  End If
Next i
...

Private Sub PrintText(ByVal e as PrintPageEventArgs, txtArray As Array, _
                       ByVal l as Single, ByVal y as Single, ByVal ws As Array, _
                       ByVal h As Single, ByVal fnt As Font, ByVal br as Brush, _
                       ByVal sfs As Array)

   For i as Integer = 0 To txtArray.Count - 1
     e.Graphics.DrawString(txtArray(i), l, y, ws(i), h, fnt, br, sfs(i))
     l += ws(i)
   Next

End Sub