Visual Basic

Re: How do you create a subform?

8-May-06 14:45

be more speciefic,
you mean u used the form wizard to create a data form? and then created a tabcontrol and cuted - paste all the labels, textboxes, buttons etc... inside the tabcontrol ???
and now you want to make a clone of the tabpage1?
what do you mean subform ?

penguin50008-May-06 19:25

penguin5000

8-May-06 19:25

I did the cut and paste as you describe into tab 1.
I then created tab 2, and now I want my subform in tab 2.
By subform, I mean something along the lines of MS Access' subform - a form within a form.
To be honest ... I figured out how to do what I needed to do without the subform and wizard on this occasion, but I'd still like to know how to create subforms for future reference.

Re: How do you create a subform?

meconomou8-May-06 22:57

VS2005, Updating the ReportViewer/Report datasource at runtime

8-May-06 22:57

I don't know your code but you don't need tabcontrol at all. Try making a button in your first form and place the followincode
Dim SubForm2 As New yourcurruntformname
'Display the new form.
SubForm2.Show()

Mark Gorcz8-May-06 10:47

Mark Gorcz

8-May-06 10:47

I am trying to use the ReportViewer control in VS2005 (VB). I have set up a report, and it works great to use a set query to fill the reports. I would like to allow the user to enter data at run time, and then generate a query to create a new dataset. I would then like the report to use this new dataset as its datasource.

There seems to be a lot out there on Crystal, but not much for the ReportViewer that comes with VS2005. Can anyone help me with changing the data source of the report at runtime?

Any help would be greatly appreciated. Thanks in Advance!

Mark G.

Override the Paint Function

dassouki8-May-06 10:42

dassouki

8-May-06 10:42

Hi there,

I just upgraded an interactive app for traffic & transportation modeling to vb.net, it works excellent and its fast contrary to expectations. however i got a huge problem. everytime any control gets repainted, the graphics or the simulation running disappears. so i browsed through the internet and learned that i have to override the Paint function and make everything to be drawn to go out from teh picture or panel paint function. this works excellent in small cases and apps, but i got about 25 classes and 20 forms ? each of these classes generates a part of the simulation. does anyone know how i can keep my GDI+ graphics from disappearing, with an actual code.
for example
public sub CodeDisappear()
fix my stinking problem bill gates
end sub

Thanks,
Dassouki

dynamic context menu

meconomou8-May-06 9:13

8-May-06 9:13

Hi I create a contextmenu from data. my code is this
Private Sub devsubmenu()
Dim cmddev As New OleDbCommand("Select modelname from devicetbl", OleDbConnection1)
OleDbConnection1.Open()
Dim dtread As OleDbDataReader = cmddev.ExecuteReader()
devmnu.MenuItems.Clear()
Do While dtread.Read
devmnu.MenuItems.Add(dtread.Item("modelname").ToString())
Loop
OleDBConnection.Close()
End Sub
The menu created is fine.
Now when i click one of the menu items created with the code above i want to take the "text" of the menu item and store it to a variable.
Here is my problem, how can i handle a click event from these items? Confused | :confused:

Any Ideas???

Rizwan Bashir9-May-06 1:44

9-May-06 1:44

Instead of adding like this
devmnu.MenuItems.Add(dtread.Item("modelname").ToString())
do this
Do While dtread.Read
Dim ChildMenu As New MenuItem
ChildMenu.Text = ""
AddHandler ChildMenu.Click, Procedure name to use
devmnu.MenuItems.Add(ChildMenu)
Loop

Rizwan Bashir

meconomou9-May-06 2:55

9-May-06 2:55

ok i changed my code to :

Do While dtread.Read
Dim ChildMenu As New MenuItem
ChildMenu.Text = dtread.Item("modelname").ToString()
AddHandler ChildMenu.Click, model_click
devmnu.MenuItems.Add(ChildMenu)
Loop

i inserted a breakpoint in procedure model_click and when i click my menuitem the program isn't calling my procedure Mad | :mad:

Private Sub model_click(ByVal sender As System.Object, ByVal e As System.EventArgs)
do domething ...
end sub

Thanx

Rizwan Bashir9-May-06 4:23

9-May-06 4:23

use this line to add the handler

AddHandler ChildMenu.Click, addressof model_click

Regards
Rizwan Bashir

meconomou9-May-06 4:40

9-May-06 4:40

sorry you are right.
i noticed that after i posted the message
you where very helpful but now do i get the text of the menuitem which is declaerd within the do while statement in the handle procedure model_click?
this is my code
Private Sub devsubmenu()
Dim cmddev As New OleDbCommand("Select modelname from devicetbl", OleDbConnection1)
OleDbConnection1.Open()
Dim dtread As OleDbDataReader = cmddev.ExecuteReader()
devmnu.MenuItems.Clear()

Do While dtread.Read
Dim ChildMenu As New MenuItem
ChildMenu.Text = dtread.Item("modelname").ToString()
AddHandler ChildMenu.Click, AddressOf model_click
devmnu.MenuItems.Add(ChildMenu)
Loop
OleDbConnection1.Close()
End Sub

End Sub
Private Sub model_click(ByVal sender As System.Object, ByVal e As System.EventArgs)
' Get childmenu.text here
End Sub

Rizwan Bashir9-May-06 21:37

9-May-06 21:37

sender is the menu. so
sender.text is the text and so on. you can play with the properties using
sender. Name of property Smile | :)

Rizwan Bashir

meconomou10-May-06 13:26

10-May-06 13:26

Thank you !!!
Smile | :)

Append .tif* Files

james_holokai028-May-06 8:02

james_holokai02

8-May-06 8:02

I have a program that can scan an image. I have a msgbox come up after each scan asking if the user wants to add a page to the original scan. Can anyone help me with this problem. Below is the code:

NextPage:
On Error GoTo ScanErr

'Scan an Image
If ImgScan1.ScannerAvailable = True Then
With ImgScan1
.OpenScanner
.StartScan
End With

ImgEdit1.Image = ImgScan1.Image 'sets imgedit1 to show scanned image

ImgScan1.CloseScanner 'close scanner
Else
MsgBox "Scanner Not available!", vbExclamation, "Error!"
End If
ScanErr:
If Err.Number = 1002 Then 'Exited without scanning
Exit Sub
Else
Exit Sub
End If

-- modified at 14:58 Monday 8th May, 2006

Re: Append .tif* Files

Rizwan Bashir9-May-06 1:49