|
| |
Visual-Basic Einsteiger| Progressbar und bestimmten Bereich im MSHFlexGrid darstellen | |  | | Autor: Maig | | Datum: 03.03.11 12:53 |
| Hallo,
ich lade mit dem Code (s. Auszug unten) viele Werte in eine FlexGrid und lasse sie am Schluss alle darstellen.
Jetzt möchte ich gerne zwei TextBoxen einrichten, die eine Eingabe eines Datums ermöglichen, so dass nur dieser Bereich in dem Grid angezeigt wird.
Ich habe das Datum auch im Array. Man könnte ja in der for - Schleife die TextBox einbauen, aber da kann ich ja dann nur Werte (die Zeilen) angeben, und nicht das Datum.
Könnt ihr mir da weiterhelfen?
Außerdem versuche ich gerade noch eine Progressbar zu erstellen die beim Füllen des Grids den Fortschritt anzeigt. Das bekomm ich irgendwie auch nicht hin.
With FormTab_E33.FGrid1
.Clear
.Cols = 18
.Rows = UBound(Tabelle) + 2
.FixedRows = 1
.FixedCols = 2
.ColWidth(0) = 1050
.ColWidth(1) = 900
'Legt die Spaltenbreite fest
For n = 2 To FormTab_E33.FGrid1.Cols - 1
FormTab_E33.FGrid1.ColWidth(n) = 750
Next n
.TextArray(0) = "Datum"
.TextArray(1) = "Uhrzeit"
.TextArray(2) = "P~ 134m"
.TextArray(3) = "P-- 134m"
.TextArray(4) = "P+ 134m"
Zeile = 1
For i = 0 To UBound(Tabelle)
'''''''''''Leistung 134m, E33 durchnittlich''''''''''''''''''''
If Tabelle(i).v134d <= 2 Or Tabelle(i).v134d >= 28 Then
Leistung134d = 0
ElseIf Tabelle(i).v134d > 2 And Tabelle(i).v134d < 13 Then
Leistung134d = Round(((101325 / (287.058 * (273.15 + Tabelle( _
i).Tempd))) / 1.225) * 0.0036568627 * (Tabelle(i).v134d) ^ 6 _
- 0.16184351 * (Tabelle(i).v134d) ^ 5 + 2.7599208 * (Tabelle( _
i).v134d) ^ 4 - 23.328312 * (Tabelle(i).v134d) ^ 3 + _
108.05321 * (Tabelle(i).v134d) ^ 2 - 253.48439 * (Tabelle( _
i).v134d) + 235.95231, 1)
ElseIf Tabelle(i).v134d >= 13 And Tabelle(i).v134d < 28 Then
Leistung134d = 335
End If
'''''''''''Leistung 134m, E33 minimal''''''''''''''''''''
If Tabelle(i).v134min <= 2 Or Tabelle(i).v134min >= 28 Then
Leistung134min = 0
ElseIf Tabelle(i).v134min > 2 And Tabelle(i).v134min < 13 Then
Leistung134min = Round(((101325 / (287.058 * (273.15 + Tabelle( _
i).Tempd))) / 1.225) * 0.0036568627 * (Tabelle(i).v134min) ^ _
6 - 0.16184351 * (Tabelle(i).v134min) ^ 5 + 2.7599208 * ( _
Tabelle(i).v134min) ^ 4 - 23.328312 * (Tabelle(i).v134min) ^ _
3 + 108.05321 * (Tabelle(i).v134min) ^ 2 - 253.48439 * ( _
Tabelle(i).v134min) + 235.95231, 1)
ElseIf Tabelle(i).v134min >= 13 And Tabelle(i).v134min < 28 Then
Leistung134min = 335
End If
'''''''''''Leistung 134m, E33 maximal''''''''''''''''''''
If Tabelle(i).v134max <= 2 Or Tabelle(i).v134max >= 28 Then
Leistung134max = 0
ElseIf Tabelle(i).v134max > 2 And Tabelle(i).v134max < 13 Then
Leistung134max = Round(((101325 / (287.058 * (273.15 + Tabelle( _
i).Tempd))) / 1.225) * 0.0036568627 * (Tabelle(i).v134max) ^ _
6 - 0.16184351 * (Tabelle(i).v134max) ^ 5 + 2.7599208 * ( _
Tabelle(i).v134max) ^ 4 - 23.328312 * (Tabelle(i).v134max) ^ _
3 + 108.05321 * (Tabelle(i).v134max) ^ 2 - 253.48439 * ( _
Tabelle(i).v134max) + 235.95231, 1)
ElseIf Tabelle(i).v134max >= 13 And Tabelle(i).v134max < 28 Then
Leistung134max = 335
End If
.TextMatrix(Zeile, 0) = Tabelle(i).Datum
.TextMatrix(Zeile, 1) = Tabelle(i).Uhr
.TextMatrix(Zeile, 2) = Format(Leistung134d, "#,##0.0")
.TextMatrix(Zeile, 3) = Format(Leistung134min, "#,##0.0")
.TextMatrix(Zeile, 4) = Format(Leistung134max, "#,##0.0")
Zeile = Zeile + 1
Next
End With 'Ende FGrid1(E33)
FormTab_E33.Show (0)Hier noch ein Screenshot:
http://www.bilder-hochladen.net/files/hgk3-5-jpg.html
Würd mich über Tipps sehr freuen!
Danke Euch schonmal,
Gruß Martin. | |
 | 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 |
 |
|
Neu! sevEingabe 3.0 
Einfach stark!
Ein einziges Eingabe-Control für alle benötigten Eingabetypen und -formate, inkl. Kalender-, Taschenrechner und Floskelfunktion, mehrspaltige ComboBox mit DB-Anbindung, ImageComboBox u.v.m. Weitere InfosTipp des Monats Access-Tools Vol.1 
Über 400 MByte Inhalt
Mehr als 250 Access-Beispiele, 25 Add-Ins und ActiveX-Komponenten, 16 VB-Projekt inkl. Source, mehr als 320 Tipps & Tricks für Access und VB
Nur 24,95 EURWeitere Infos
|
| |
|
Copyright ©2000-2025 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.
Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel
|
|
Sie sind aktuell nicht angemeldet.
