Περιεργο προβλημα με το object MSHFlexgrid

Συζητήσεις για τις γλώσσες του dot Net και για του Visual Studio της Microsoft

Συντονιστές: WebDev Moderators, Super-Moderators

Απάντηση
brakos
Δημοσιεύσεις: 34
Εγγραφή: 27 Δεκ 2001 01:00
Τοποθεσία: Thessaloniki,Greece
Επικοινωνία:

Περιεργο προβλημα με το object MSHFlexgrid

Δημοσίευση από brakos » 23 Ιουν 2003 13:27

Εστω οτι εχω μια φορμα χρησιμοποιωντας το mshflexgrid.

Το γεμιζω λοιπον με 20 τιμες το 1ο column απο 1...εως..20
με καποιο command

Private Sub Command1_Click()
MSHFlexGrid1.Rows = 20
For x = 1 To 20
MSHFlexGrid1.Row = x
MSHFlexGrid1.Clip = x
Next
End Sub

Εστω τωρα οτι οταν κανω διπλο κλικ στο συγκεκριμενο κελι
να τραβαω τις τιμες και να φαινεται σε msgbox.

Private Sub MSHFlexGrid1_DblClick()
mshflexgrid1.col = 0
MsgBox (MSHFlexGrid1.Clip)
End Sub

Το παραπανω δουλευει ανετα σε Visual Basic 6.0 με winXP
ενω σε win98SE μου επιστρεφει ΑΔΕΙΟ το msgbox. Γιατι ?
Ξερει κανεις τι παιζεται ? Ευχαριστω...

Άβαταρ μέλους
agrippas
Script Master
Δημοσιεύσεις: 494
Εγγραφή: 18 Ιούλ 2002 14:52
Τοποθεσία: Υπερπέραν
Επικοινωνία:

Περιεργο προβλημα με το object MSHFlexgrid

Δημοσίευση από agrippas » 23 Ιουν 2003 23:58

Το σκεπτικό σου είναι σωστό. Σου έκανα κάποιες διορθώσεις και τώρα δε θα έχεις πρόβλημα...

Κώδικας: Επιλογή όλων

Private Sub Command1_Click()

On Error GoTo errdesc

MSHFlexGrid1.Rows = 21

For x = 1 To 20
    
    MSHFlexGrid1.Row = x
    MSHFlexGrid1.Clip = x

Next

Exit Sub

errdesc:
MsgBox Err.Description, vbExclamation

End Sub



Private Sub MSHFlexGrid1_DblClick()

MSHFlexGrid1.Col = 0
MsgBox CStr(MSHFlexGrid1.Row), vbInformation

End Sub


brakos
Δημοσιεύσεις: 34
Εγγραφή: 27 Δεκ 2001 01:00
Τοποθεσία: Thessaloniki,Greece
Επικοινωνία:

Περιεργο προβλημα με το object MSHFlexgrid

Δημοσίευση από brakos » 24 Ιουν 2003 15:55

Ευχαριστω. Θα το δοκιμασω. Εμπλεξα με τα WIN98, αλλη φορα θα γραφω στα προγραμματα : "ΕΛΑΧΙΣΤΗ ΑΠΑΙΤΗΣΗ, WINXP " Αρκετα εμπλεξα... :hammer:

Απάντηση

Επιστροφή στο “dot Net και Visual Studio”

Μέλη σε σύνδεση

Μέλη σε αυτήν τη Δ. Συζήτηση: Δεν υπάρχουν εγγεγραμμένα μέλη και 0 επισκέπτες