Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

MsFlexGrid1
Autor: Kalle
Datum: 13.01.03 19:23
Ich habe ein MSFlexGrid mit Jahreszahlen und Monaten möchte aber von aussen Text (Zahlen) eingeben. Wer kann mir helfen. Mein Code!! Option Explicit Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long Private Sub Form_Load() Dim s$ MSFlexGrid1.Cols = 11 MSFlexGrid1.Rows = 16 MSFlexGrid1.Row = 0 MSFlexGrid1.Col = 0 ' Spalten- und Zeilenüberschriften festlegen. s$ = "|1997 |1998 |1999 |2000 |2001 |2002 |2003 |2004 |2005 |2006 " s$ = s$ + ";|Januar|Februar|März|April|Mai|Juni|Juli|August|September|Oktober|November|Dezember| |Gesamt" MSFlexGrid1.FormatString = s$ MSFlexGrid1.Text = " Werk1 " ' MSFlexGrid1.AllowUserResizing = flexResizBothe MSFlexGrid1.BackColor = vbWhite MSFlexGrid1.BackColorBkg = vbGreen MSFlexGrid1.BackColorFixed = vbCyan MSFlexGrid1.BackColorSel = vbBlue End Sub Private Sub MSFlexGrid1_Click() '' MSFlexGrid1.CellBackColor = 1 End Sub Private Sub cmdClear_Click() ' Grid-Inhalt löschen MSFlexGrid1.Clear End Sub Sub MSFlexGrid1_KeyPress(KeyAscii As Integer) MSFlexGridEdit MSFlexGrid1, txtEdit, KeyAscii End Sub Sub MSFlexGrid1_DblClick() MSFlexGridEdit MSFlexGrid1, txtEdit, 32 ' Leerzeichen ' simulieren. End Sub Sub MSFlexGridEdit(MSFlexGrid As Control, _ Edt As Control, KeyAscii As Integer) ' Das eingegebene Zeichen verwenden. Select Case KeyAscii ' Leerzeichen bedeutet Bearbeitung des aktuellen ' Texts. Case 0 To 32 Edt = MSFlexGrid Edt.SelStart = 1000 ' Alles andere bedeutet Ersetzen des aktuellen ' Texts. Case Else Edt = Chr(KeyAscii) Edt.SelStart = 1 End Select ' Edt an der richtigen Stelle anzeigen. Edt.Move MSFlexGrid.CellLeft, MSFlexGrid.CellTop, _ MSFlexGrid.CellWidth, MSFlexGrid.CellHeight Edt.Visible = True ' Jetzt sollte es funktionieren. Edt.SetFocus End Sub Sub MSFlexGrid1_GotFocus() If txtEdit.Visible = False Then Exit Sub MSFlexGrid1 = txtEdit txtEdit.Visible = False End Sub Sub MSFlexGrid1_LeaveCell() 'If txtEdit.Visible = False Then Exit Sub MSFlexGrid1 = txtEdit txtEdit.Visible = False End Sub

MsFlexGrid1

497

Kalle

13.01.03 19:23

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen