Discussion :

[rigane_med]

aidez moi svp a corriger ce code en vb6 !

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
Private Sub AddNew_Click()
 
        Dim s As String
        Dim sRow As Integer
 
s = MsgBox("Are You Sure", vbQuestion + vbYesNo, "Save...")
If s = vbNo Then Exit Sub
 
    sRow = MSHFlexGrid1.Rows + 1
    MSHFlexGrid1.Rows = sRow
    MSHFlexGrid1.TextMatrix(sRow - 1, 0) = sRow - 1
 
 
        MSHFlexGrid1.TextMatrix(sRow - 1, 1) = TXT_PRES.Text
        MSHFlexGrid1.TextMatrix(sRow - 1, 2) = TXT_TIME.Text
        TXT_PRES.Text = ""
        TXT_TIME.Text = ""
 
 MsgBox "Data Has Saved Successfully", vbInformation, "Saved"
 End Sub
 
Private Sub Command1_Click()
        Dim s As String
s = MsgBox("Are You Sure", vbQuestion + vbYesNo, "Save...")
If s = vbNo Then Exit Sub
      Dim sRow As Integer
    sRow = MSHFlexGrid1.Rows + 1
    MSHFlexGrid1.Rows = sRow
    MSHFlexGrid1.TextMatrix(sRow - 1, 0) = sRow - 1
MSHFlexGrid1.TextMatrix(sRow - 1, 1) = "END"
End Sub
 
Private Sub EDIT_Click()
   If (MSHFlexGrid1.Row = 0) Then
      '  A = MsgBox("Impossible de modifier la ligne", vbCritical, "Erreur")
 
   ElseIf (TXT_PRES.Text = Empty Or TXT_PRES.Text = Empty) Then
        A = MsgBox("Un des champs desiré est vide donc impossible de modifier la ligne", vbCritical, "Erreur")
   Else
        MSHFlexGrid1.TextMatrix(MSHFlexGrid1.Row, 1) = TXT_PRES.Text
        MSHFlexGrid1.TextMatrix(MSHFlexGrid1.Row, 2) = TXT_TIME.Text
        TXT_PRES.Text = ""
        TXT_TIME.Text = ""
   End If
   End Sub
 
Private Sub DELETE_Click()
 If MSHFlexGrid1.Rows = 1 Then Exit Sub
    If MSHFlexGrid1.Rows = 2 And MSHFlexGrid1.Row = 1 Then
        MSHFlexGrid1.Rows = 1
        MSHFlexGrid1.Row = MSHFlexGrid1.Row - 1
        Exit Sub
    End If
        MSHFlexGrid1.RemoveItem MSHFlexGrid1.Row
End Sub
 
Private Sub EXIT_Click()
Dim p As String
p = MsgBox("Are You Sure To Exit", vbQuestion + vbYesNo, "Exit...")
If p = vbNo Then Exit Sub
End
End Sub
 
Private Sub Form_Load()
MSHFlexGrid1.TextMatrix(0, 0) = "Step n°"
MSHFlexGrid1.TextMatrix(0, 1) = "Pressure"
MSHFlexGrid1.TextMatrix(0, 2) = "Time"
'MSHFlexGrid1.Rows = MSHFlexGrid1.Rows + 5
End Sub