| |

VB.NET - Ein- und UmsteigerRe: 3D Würfel Speichern , 3D Map Speicher,laden ? | |  | Autor: Knopfab | Datum: 19.04.16 15:26 |
| Danke Manfred X.!!!!! ( Code Visual Basic ab 2013
)
Das mit Datenbank hatte ich schon mal im Kopf dachte es geht nicht aber es geht supper mit Dataset1. Kann Löschen,schreiben,ändern.
Und um die Formen zu manipuliert ist auch leicht mit Timer oder eine 2te Datenbank als ADD.
Bei youtupe ergebnis googeln ^^(Visual Basic OpenGL Würfel / Datenbank abrufen zu gl)
https://www.youtube.com/watch?v=NWt75Yuyyj4
Aber ich klaube den Code kann besser machen ? H
abe 10 Stunden gebrauch mit der Datenbank + Funktion + verlinkung war neu land.
Try
Dim T As Integer
For T = 0 To 40000000
A1 = TableDataGridView.Item(1, T).Value
A2 = TableDataGridView.Item(2, T).Value
A3 = TableDataGridView.Item(3, T).Value
A4 = TableDataGridView.Item(4, T).Value
A5 = TableDataGridView.Item(5, T).Value
A6 = TableDataGridView.Item(6, T).Value
A7 = TableDataGridView.Item(7, T).Value
A8 = TableDataGridView.Item(8, T).Value
A9 = TableDataGridView.Item(9, T).Value
A10 = TableDataGridView.Item(10, T).Value
A11 = TableDataGridView.Item(11, T).Value
A12 = TableDataGridView.Item(12, T).Value
A13 = TableDataGridView.Item(13, T).Value
A14 = TableDataGridView.Item(14, T).Value
A15 = TableDataGridView.Item(15, T).Value
A16 = TableDataGridView.Item(16, T).Value
A17 = TableDataGridView.Item(17, T).Value
A18 = TableDataGridView.Item(18, T).Value
A19 = TableDataGridView.Item(19, T).Value
A20 = TableDataGridView.Item(20, T).Value
' A21 = TableDataGridView.Item(21, T).Value
A22 = TableDataGridView.Item(22, T).Value ' Bild abrufen
GL.BindTexture(TextureTarget.Texture2D, id(A22))
GL.Begin(PrimitiveType.Quads)
GL.TexCoord2(A1, A2) : GL.Vertex3(A3, A4, A5)
GL.TexCoord2(A6, A7) : GL.Vertex3(A8, A9, A10)
GL.TexCoord2(A11, A12) : GL.Vertex3(A13, A14, A15)
GL.TexCoord2(A16, A17) : GL.Vertex3(A18, A19, A20)
GL.End()
Next T
Catch ex As Exception
End Try
Hinzufügen Rows:
Dim rowcount As Integer = TableDataGridView.Rows.Count
TableDataGridView.DataSource.AddNew()
TableDataGridView.Rows(rowcount - 1).Cells(0).Value = Textbox1.text
Zeile Beschreiben:
TableDataGridView.Rows.Item(rowcount - 1).Cells(1).Value = TextBox1.Text
Zeile auslesen:
Textbox1.Text= TableDataGridView.Item(1, T).Value
Ämmmm |  |
 | 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 |
  |
|
TOP! Unser Nr. 1 
Neu! sevDataGrid 3.0
Mehrspaltige Listen, mit oder ohne DB-Anbindung. Autom. Sortierung, Editieren von Spalteninhalten oder das interaktive Hinzufügen von Datenzeilen sind ebenso möglich wie das Erstellen eines Web-Reports. 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
|