Your code would probably be more efficient and more readable with a Select Case block instead of the IF, ElseIf.
Select Case dbltotalaverage
Case 90 To 100
txtgrade.Text = "A"
Case 80 To 89
txtgrade.Text = "B"
Case 70 To 79
txtgrade.Text = "C"
Case 60 To 69
txtgrade.Text = "D"
Case Else
txtgrade.Text = "F"
End Select
Use a Label in front of each text box and in the Caption for the Label, use an & in front of the letter to define the shortcut key - &m in your example. Make sure the Label's TabIndex is one less than the TabIndex for its associated TexBox. That should do it.
Why can't you just put centering code in the Form_Load event of the mdi child form? You know what window will be the parent, and it wouldn't matter is the parent is maximized or normal.
You could use the multiple-document interface (MDI) in which the forms are a "child" of the "parent" main form, but MDI program can be a pain. Why can't you just use the main form's properties to decide where the other forms should appear? For example, in the Form_Load event of Checkout...
Top = Form1.Top 'add any offset you want Left = Form1.Left 'again add the desired offset
The Str function returns a leading space for the sign of number. Could that be messing you up? Sinec the leading space is there, you could use "R01" & str$(99)
If you want to trap the Tab key in the KeyPress event, you have to disable to TabStop property in all other controls on the form, but you will have to handle moving the control focus yourself. Once the TabStop property is set to false, the Tab key will be trapped in the KeyPress event. Be sure to set the KeyPreview property on the form.
On Error Resume Next For Each Control In Controls Control.TabStop = False Next
Sounds to me like you want to sunchronize the toolbar on all the mdi forms. Try looping through the forms collection:
If you can identify each mdi form by name then you can use:
For Each frm In Forms If frm.Name = "mdiform" Then frm.Toolbar1.Buttons(5).Value = tbrPressed End If Next
If you can't specifically identify the mdi forms, use:
On Error Resume Next For Each frm In Forms frm.Toolbar1.Buttons(5).Value = tbrPressed Next
I would also use Keys for your buttons, so if you change button positions in the toolbar, you won't have to redo a lot of code. You can assign each button a key. Then instead of referencing them by number you can reference them by name.
For example: Toolbar1.Buttons(5) or Toolbar1.Buttons("Play")
Well, you'll have to check for thsoe as well. But what's to prevent someone from entering "no@way.com" as a bogus address? There's really no way to validate legitimate addresses. I would check for the presence of an @ sign and a period in the input, and assume they typed a legitimate address.
Your code has many issues to be fixed... such as form placement, handling the backspace key, etc.
Anyway, I did what I could quickly. Try the attached.
You have to right click on the link and use "Save Target As" otherwise you will get a corrupt compressed file. Not sure why. Seems to be something with DaniWeb.
App.Path is Read Only and is set to the path of the executable file. You shouldn't define this anyway, as a user may chose a different path when installing the program. You can use like App.Path$ & "\Data\MyFile.MDB" and your program will the data directory no matter when the user installed your program.
Your syntax is wrong for the control array. frmsummary.lblfname(0) = frmWage.lblfirstname.Caption should be frmsummary.lblfname(0).caption = frmWage.lblfirstname.Caption
I don't think you're understanding the suggestions. If the labels are controls, you don't need to Dim strings.
In frmwage and your other form, text boxes should gather the user input. Then in the Form_Load event of the frmsummary form, you can use something like this:
Private Sub Form_Load() for i = 0 to 9 frmsummary.lblfname(i).Caption = frmWage.lblfirstname(i).Caption 'use frmsummary.lblfname(i).Caption = frmWage.lblfirstname(i).Text for Text Boxes next end sub
The easiest way to make a control array is to create the first control, then copy and paste the others. The first time you paste the control, Visual Basic will ask you if you want to create a control array. Say yes. From then on, every copy you paste will be in the control array.
A couple points:
Control arrays require an index. For instead of lblfname.caption, it becomes lblfname(index).caption, where index is a number. The nice thing about control arrays is that they all share the same event procedures... click, change, etc. The Index argument of the procedure will tell you which control fired the event.
Control arrays default to an index of 0, although you can change it to 1. Therefore, the first control in the array will be 0; lblfname(0). So for your 10 labels it ranges from lblfname(0) to lblfname(9).
In the Form_Load event of the summary form, load the captions from the other two forms.
It's probably NOT how I would populate data from one form to another, but if you insist on doing so with labels, I suggest making the labels a control array so you can populate them in a for / next loop:
for i - 0 to 9 frmsummary.label(i). caption = form1.label(i).caption next
Well, there's lots of ways to do this. For example, you could have labels for all 10 on the summary for and populate each individually from the first two forms. You could have the summary form contain a list control with columns that is populated from the other forms.
You can use frmsummary.lblfname0.Caption = frmWage.lblfirstname.Caption or you can put the captions / text in public variables which are accessible to any form.
The CoolBar is part of Microsoft Windows Common Controls-3. Using the Projects menu, select Components to bring up the Components dialog box. On the Controls Tab, check "Microsoft Windows Common Controls-3"
The toolbar should be in a CoolBar. In the CoolBar Property Pages, on the Band tab, there's a settign for New Row. Add more then one Band and set the second Band to NewRow.
