Visual Basic

Kushal Kumar wrote:

I am creating a vb 6.0 project

Kushal Kumar wrote:

1) How to find the total value of different items (i.e. In Pharmacy column i have entered price of different medicines, how to add all medicine's price to find the total price).

Kushal Kumar wrote:

2) I need to make a final billing form for patient at the discharging time which will includes all the charges and fees he have to pay (like bed charge,doctor fee,pharmacy bill,tests fee), so how to link the values of all these forms in a separate form.

drago11 wrote:

when I call framecount

Private Sub my_capture(ctrl As Control, fileName As String)
       Dim bounds As Rectangle = ctrl.Bounds
       Dim pt As Point = ctrl.PointToScreen(bounds.Location)
       Dim bitmap As New Bitmap(bounds.Width, bounds.Height)
       Using g As Graphics = Graphics.FromImage(bitmap)
           g.CopyFromScreen(New Point(pt.X - ctrl.Location.X, pt.Y - ctrl.Location.Y), Point.Empty, bounds.Size)
       End Using

       bitmap.Save(fileName, ImageFormat.Png)
   End Sub

Dim bounds As Rectangle = ctrl.Bounds
        Dim pt As Point = ctrl.PointToScreen(bounds.Location)
        Dim myBitmap As New Bitmap(bounds.Width, bounds.Height)

        myBitmap.MakeTransparent(ctrl.BackColor)

        Using m_g As Graphics = Graphics.FromImage(myBitmap)
            m_g.CopyFromScreen(New Point(pt.X - ctrl.Location.X, pt.Y - ctrl.Location.Y), Point.Empty, bounds.Size)
            m_g.Dispose()
        End Using

        myBitmap.Save(fileName, ImageFormat.Png)
        myBitmap.Dispose()