Visual Basic Forum

Verfasst am: 02.02.2011, 00:18 Aufrufe: 640

... Dim OldNR As RECT ' Diverse Public aktivesWerkzeug As Integer ' 1 = Pfeil, 2 = Button-Werkzeug Private buttonCounter As Integer ' Zähler für erstellte Schaltflächen, 1.Button = 0 Private aktButton As Integer ' derzeitig gewählter Button Private Sub Form_Load() buttonCounter = 0 nButton(buttonCounter).Visible = False ' ' Resize initialisieren ...

Verfasst am: 22.11.2009, 16:28 Aufrufe: 1803

Spieleprogrammierung mit XNA - Teil 3Willkommen zum dritten Tutorial,mir ist grad langweilig, also hab ich das dritte schon geschrieben. :DIn diesem Teil geht es um die erste Textur, die wir anzeigen wollen.Ich gehe vom Source aus Tutorial Nummer 2 aus, also bitte ladet das Projekt schonmal Wink

3.1 Neue Variablen!Mit neuen Funktionen kommen auf neue Variablen zum Einsatz. Das ist auch bei XNA so.Folgende Variablen ...

Verfasst am: 23.10.2009, 13:11 Aufrufe: 717

Gesagt getan datei erstellt und geteste und die Provider die ich dacht die Müssen es ein funktionieren nicht ( - SQL NATIVE CLIENT ; -Microsoft OLE DB PROVIDER FOR SQL SERVER [Fehler beim Testen der Verbindung durch einen Fehler beim Initialisieren des Providers [DBNETLIB][ConnectioOpen(Connect())),]SQL Server existiert nicht oder Zugriff verweigert] ; -Microsoft OLE DB Provider for Search [Der Provider ist n ...

Verfasst am: 19.06.2009, 20:00 Aufrufe: 1800

Stop Then 'Attribute der Datei ändern Call SetAttr(sFilepath, vbNormal) 'Datei Binär öffnen ff = FreeFile Open sFilepath For Binary As #ff 'Dateigröße ermitteln iFilesize = LOF(ff) 'iBlocksize berechnen If iFilesize < iBlocksize Then iBlocksize = iFilesize 'Randomize initialisieren mit der Zeit wie lange Windows schon läuft Call Randomize(GetTickCount) 'Schleife für iLoops For i = 1 To iLoops fShredd ...

Verfasst am: 08.04.2009, 21:28 Aufrufe: 642

Verfasst am: 24.09.2008, 13:04 Aufrufe: 4162

Spieleprogrammierung mit XNA - Teil 2Willkommen zum zweiten Teil der XNA Tutorialreihe.In diesem Teil möchte ich euch die Grundkenntnisse von XNA zeigen.Hier werdet ihr die XNA Variablentypen und die FUnktionen das erste mal kennenlernen.Also fangen wir mit Schritt 1 an.2.1 - Import der NamespacesDamit auch alle Funtkionen zur Verfügung stehen müsst ihr zuerst einmal die Namespacesimportieren. Schreibt daher nach gan ...

Verfasst am: 28.05.2008, 13:54 Aufrufe: 845

Stimmt schon dass man es auch mit der normalen Imagebox machen kann.Ich finde es nur besser, da man es nur einmal in Form_Load etc. initialisieren muß und die Geschichte ist erledigt.Aber jedem das seine.Wollte nur zeigen dass es denke ich logischer ist im selben Objekt einfach nur das Bild zu wechseln und nicht mit Visible = True oder Visible = False zu arbeiten.

Verfasst am: 05.05.2008, 03:37 Aufrufe: 5888

Verfasst am: 21.04.2008, 19:54 Aufrufe: 2307

Stop Then 'Attribute der Datei ändern Call SetAttr(sFilepath, vbNormal) 'Datei Binär öffnen ff = FreeFile Open sFilepath For Binary As #ff 'Dateigröße ermitteln iFilesize = LOF(ff) 'iBlocksize berechnen If iFilesize < iBlocksize Then iBlocksize = iFilesize 'Randomize initialisieren mit der Zeit wie lange Windows schon läuft Call Randomize(GetTickCount) ...

Verfasst am: 15.04.2008, 16:44 Aufrufe: 553

Vorasugesetzt wir haben eine Textdatei "C:\test.txt" mit dem Inhalt Hallo ich bin nur ein Test dann sieht der Code folgendermaßen aus: Du kannst natürlich jedes andere Event wählen, ich benutze das Form_load Private Sub Form_Load() Danach deklarieren und initialisieren wir erstmal benötigte Variablen Dim sTemp As String Dim ff As Integer ff = FreeFile Jetzt wird d ...

Verfasst am: 03.12.2007, 22:42 Aufrufe: 508

... As Long dwLength As Long dwEditCount As Long szFileType As String * 64 End Type ' Länge (Spieldauer) ermitteln ' (Rückgabewert erfolgt in Millisekunden) Public Function AVI_GetLength(ByVal sFile As String) As Long Dim hFile As Long Dim AviInfo As AVIFileInfo Dim nLength As Long ' Fehlerbehandlung aktivieren On Error Resume Next ' Initialisieren ...

Verfasst am: 02.05.2007, 07:02 Aufrufe: 508

dank trey aber wird schon. Danke Zig so isses ok hast mir echt geholfen. Warum ich nich selber dran gedaht habe weiß ich auch ncih. hab dann mal im zusammenhang mit arrays noch ne frage. HIer mussteich sie ja erst initialisieren aber wenn ich einen array hab der nu so is: dim daten() as String dann kann ich den ja mit split füllen Daten() = Split(Text1.Text, ":") und da geht das doch auch. Warum?

Verfasst am: 01.05.2007, 20:53 Aufrufe: 508

Also Redim Preserve Char(i) ist schon richtig. Nutze ich auch oft. Aber in einer Schleife zerrt das stark an der Leistung. Besonders wenn sehr viele Zeichen sind, also die Schleife sehr oft durchlaufen muß. Mit einer Textbox und paar Zeichen ist es egal, aber für andere Projekte wo ihr das vielleicht braucht, geb ich euch den Tipp lieber das Array vorher zu initialisieren. Bei deinem code ist das leicht. Ei ...

Verfasst am: 01.05.2007, 20:30 Aufrufe: 508