Hi
Is Been a 3 Yrs Now (I Still trying to do this)
Please help me to do this with Visual Basic 6.0 using Msflexgrid
Let say you are the Principal . You have 10 educators and 5 class (Grades) .So you want to setup a School Time Table for them.
Each educator must go to each period but if that educator go to grade 6 period 1 on Monday. The same educator must do that period 1 on Monday at the same time, Timetable must aloud the same educator to go to Grade 7 on the Period 2 on Monday or Grade 8/9/10…. Period 2/3/4/5….. This Time table must aloud other Educator to do the Same thing.
and How to Hide a Text (Word) Inside a Msflexgrid
I’m THEMBA from South Africa
Please Send for the Vb 6.0 code of those Small Program
God Bless you.
Thanks
Hi
Visual Basic 6.0
Form 1
Properties Caption
Text1 Grade
Text2 (Input of Short Name of Educator or Teacher)
Msflexgrid 1
Msflexgrid 2
Command 1 Enter ‘ You must enter all the Educator that One to be
'that Class \Grade
‘ Before you Continue with another Grade\ Class
Command 2 Save Grade ‘ Save Before You Continue
Command 3 Show Grade
Command 4 New Grade
Code 1 of Form 1
- Private Sub Form_Load()
-
Msflexgrid1.Row = 6
-
Msflexgrid1.Col = 6
-
End Sub
-
-
Private Sub Command1_Click()
-
MSFlexGrid1.Text = MSFlexGrid2.Text + "(" + Text1 + "." + Text2 + ")"
-
End Sub
-
Private Sub Command3_Click()
-
Form2.Show vbmodal
-
End Sub
-
Private Sub Command2_Click()
-
Dim cFlexSettings As clsFlexSettings
-
Set cFlexSettings = New clsFlexSettings
-
Set cFlexSettings.FlexGrid = MSFlexGrid1
-
cFlexSettings.SaveSettings "C:\" + Text1 + ".flex", True, True, True, True
-
end sub
-
Private Sub Command4_Click()
-
' This is going to allow you to enter a New Grade
-
' Remember that the Educator are all ready Saved before ,You will used the same educator
-
' to Enter the New Grade. “ The first one is Saved”.
-
MSFlexGrid1.Clear
-
Text1.text = “ “
-
End sub
Form 2
Msflexgrid1 Show all the Grade\Class that are Enter
Msflexgrid2 Show all the School Time Table of tha Grade\ Class
Msflexgrid1 Is going to load a Grade
Combo 1 You can select any grade\Class that you are all ready Save
Command1 Create
Code2
- Private Sub Form_Load()
-
Msflexgrid1.Row = 6
-
Msflexgrid1.Col = 6
-
MSFlexGrid1.TextMatrix(0, 1) = "Prd 1"
-
MSFlexGrid1.TextMatrix(0, 2) = "Prd 2"
-
MSFlexGrid1.TextMatrix(0, 5) = "Prd 5"
-
-
MSFlexGrid1.TextMatrix(1, 0) = "Day 1"
-
MSFlexGrid1.TextMatrix(1, 0) = "Day 2"
-
MSFlexGrid1.TextMatrix(1, 0) = "Day 5"
-
End sub
-
-
-
Private Sub Command4_Click()
-
' If I Press this Button is going to Check all the grade\Classes that all Period are not Clush
-
' If are Clush. then must perform a Sorting until Period are not Clush
-
Coding
-
That when I’M Geting a Problem to do that
-
-
' Example Grade 1 \ Class 1 with Educators\Teachers
-
' Grade 2 \ Class 2 with Educators\Teachers
-
'Until Grade 5 \ Class 5 with Educators\Teachers
-
End sub
God Bless you