Visual Basic Forum

Verfasst am: 12.12.2011, 14:50 Aufrufe: 333

Click Dim iResult, iTmp As Short Dim sCmd As String Dim y As Byte 'make sure id is 8 chars in length While (txtID.Text.Length < 8) txtID.Text = "0" & txtID.Text End While 'and no more then 8 chars, really can't happen because the control is set to max 8 chars While (txtID.Text.Length > 8) ...

Verfasst am: 25.03.2011, 01:11 Aufrufe: 1244

Verfasst am: 07.02.2011, 10:48 Aufrufe: 430

Die eine soll numerisch sortiert werden! Die andere ist mit Namen versehen die dann automatisch mit sortiert werden sollen. Zb. Max Mustermann 4,0 Zum beispiel 8,2 Maxine Musermann 5,6 ---- SORTIEREN ---- Max Mustermann 4,0 Maxine Musermann 5,6 Zum beispiel 8,2 Also die Namen sollen bei den Entsprechenden Werten bleiben! Ich glaube das macht man mit Index oder so ähnlich! Hat jemand ein Codebe ...

Verfasst am: 02.08.2010, 08:27 Aufrufe: 592

hi so ein paar kleinigkeiten... -) hast ein end if zuviel -) If Max(0) Or Max(1) Or Max(2) Or Max(3) > 255 Then funktioniert nicht ... muss heissen If Max(0) > 255 Or Max(1) > 255 Or Max(2) > 255 Or Max(3) > 255 Then -) und du solltest prüfen ob überhaupt das richtige format eingegeben wurde sont kommt der nächste fehler weil du nicht max(0-3) nicht prüfen kannst Private Sub Comman ...

Verfasst am: 30.07.2010, 23:14 Aufrufe: 592

Hallo! ich möchte das der User keine IP eingibt in der einer der blöcke größer als 255 ist (weil es ja nicht höher geht), zur fehlervermeidung. Das ganze sieht dann so aus: Dim Max() As String Dim IP As String IP = txtip.Text Max() = Split(IP, ".") If Max(0) Or Max(1) Or Max(2) Or Max(3) > 255 Then MsgBox "IP cannot be bigger the ...

Verfasst am: 04.05.2010, 12:31 Aufrufe: 576

Verfasst am: 24.03.2010, 14:46 Aufrufe: 596

... hab ich da auch schon keine ahnung mehr wozu mir das weiterhelfen soll ich kann den Speicher nicht in nem Label anzeigen und auch nicht auf 0 oder ähnliches stellen würd mich freuen wenn ihr mir ein paar beispiele nennen könntet für den Speicher "Timer" damit ich das mal verstehe wichtig ist der Speicher ist gemeint und nicht die Forms Anwendung Timer wie mann die benutzt weiß ich Mfg Max

Verfasst am: 02.01.2010, 16:47 Aufrufe: 1300

Enabled = True 'Timer starten 'Progressbar initialiseren ProgressBar1.Min = 0 'Bei 0 Anfangen ProgressBar1.Max = 10000 'Bei 10.000 Millisekunden ist der Balken voll durch gelaufen ProgressBar1.Value = 0 'Die Bar startet bei 0 End Sub Private Sub Timer1_Timer() Dim timeDiff As Long timeDiff = GetTickCount() - startTime 'Wie viel Zeit ist vergangen? If timeDiff < ...

Verfasst am: 25.10.2009, 14:31 Aufrufe: 6627

de/intern/jump/?use=&goto=&service=login&si=&session=000003973B263F3BA43BB5207AEE184B2A9086&kill=yes&serv=new&alt=https%3A//freemailng2005.web.de&balanced=true Cache-Control: no-store,max-age=0 Vary: Accept-Encoding Content-Encoding: gzip Content-Length: 111 Connection: close Content-Type: text/html ---------------------------------------------------------- http://ocsp.thawte.c ...

Verfasst am: 23.09.2009, 07:42 Aufrufe: 401

Hallo, ich habe eine Frage. Ich will einem Gridview die Feldinhalte so darstellen, dass es wie folgt aussieht: Name: Mustermann, Max Jetzt habe ich ein Beispiel gefunden, wo das mit HTML-Tags gelöst wurde. da sieht das so aus als Code e.CellElement.Text = "<html>Name:" & e.CellElement.RowInfo.Cells("'NachName").Value & "," & e.CellElem ...

Verfasst am: 15.06.2009, 12:16 Aufrufe: 1917

... oop Until SendComplete Loop Until AllComplete Close Call MsgBox("Sending complete") End FunctionErklärung zur FunktionIm Grunde ist es sehr einfach.Der Code funktioniert so, dass er die Datei Stückchenweise einliest und versendet.Da das Winsock Control immer nur eine gewisse Menge an Bytes auf einmal versenden kann (65535Bytes max ...

Verfasst am: 15.06.2009, 11:29 Aufrufe: 676

Beschreibung:Diese Funktion gibt eine Zufallszahl zwischen dem minimalen und maximalen Wert aus.Funktion:Private Function GenerateRndNumber(ByVal [Min] As Int16, _ ByVal [Max] As Int16) As Int16 Try & ...

Verfasst am: 11.06.2009, 17:26 Aufrufe: 441

Alle t sekunden lese ich Werte ein und Plotte den Graph neu. Leider gelingt es mir nicht die Achsen in einer gewissen Länge darzustellen. D.h. wenn die x-Achse z.B. den max. Wert von 400 hat und der max Wert der Y Achse z.b.10, dann kann ich nichts mehr erkenne, da die y-Achse viel zu kurz ist. Es muss doch irgendwie gehn, dass ich die Länge dieser Achse angebe und somit die Achse strecke,bzw stauche ohne die m ...

Verfasst am: 05.03.2009, 16:02 Aufrufe: 592

Hallo, kann ich irgendwie beim Einlesen einer Textdatei in ein Stringarray mir anschließender ReDim Preserve Anweisung, die Progressbar anzeigen lassen. Also nach jeder Neudimensionierung und Einlesen ins Array: ProgressBar1.Value = ProgressBar1.Value + 1 ohne ProgressBar1.Max zu kennen, da das Array ja dynamisch ist? Danke!

Verfasst am: 04.09.2008, 21:14 Aufrufe: 686

... n (1 Zeichen = 2 Bytes, da VB Unicode verwendet). Die Beschränkung auf 4 Milliarden Bytes liegt darin begründet, dass VB intern im Arbeitsspeicher sich die Länge einer Zeichenkette mit einer Variable des Typs unsigned Long (d. h. ohne Vorzeichen) merkt - und da ist bei 4 Milliarden Schluss.So wie ich das verstehe benötigt man allein für die Deklaration 10Bytes.Der Speicher wird also reserviert.Max ...

Verfasst am: 04.09.2008, 13:03 Aufrufe: 830

Max = Image1.Container.Height - Image1.HeightFehler!: Objekt erforderlich

Verfasst am: 03.09.2008, 18:55 Aufrufe: 830

Verfasst am: 01.09.2008, 16:00 Aufrufe: 2522

Muss man testen welches richtig ist Very Happy

Naja zum Glück gibs keine max. Begrenzung.Achja wenn mans einmal falsch hat, wird auch ein neues Bild generiert.Edit: Zar nicht ganz, aber vielleicht auch ein Problem:

Verfasst am: 17.08.2008, 12:25 Aufrufe: 1880

dll" () As Long Private Sub Form_Load() Me.Hide Dim UsrName as string Dim SavedUsrName as string UsrName = environ("Username") SavedUsrName = "Max Mustermann" if IsDebuggerPresent = 1 then end end if i ...

Verfasst am: 08.08.2008, 00:48 Aufrufe: 3358

... c--> Visual Basic: Me.Hide Dim UsrName as string Dim SavedUsrName as string UsrName = environ("Username") SavedUsrName = "Max ...

Verfasst am: 07.08.2008, 14:14 Aufrufe: 1736

Beispielsweise HKEY_LOCAL_MACHINESOFTWAREWindows (falls es den gibt).Da sagen wir, stehen jetzt 3 Schlüsseln drin:1. Path = C:Windows2. Version = XP3. Computername = Max MustermannJetzt erstellen wir eine Textdatei mit folgendem Inhalt:Windows Registry Editor Version 5.00Nun fehlen uns noch die Schlüssel. Diese lesen wir per Methode oben alle aus und hängen diese an unsere Textdatei an:Windows Registry Editor Version ...

Verfasst am: 19.07.2008, 16:03 Aufrufe: 1065

Verfasst am: 21.06.2008, 19:10 Aufrufe: 620

Verfasst am: 21.06.2008, 17:19 Aufrufe: 3449

Verfasst am: 16.06.2008, 20:08 Aufrufe: 3449

Verfasst am: 04.06.2008, 20:35 Aufrufe: 1315

lolDer normale Weg geht über HttpWebRequest/Response. Natürlich geht das auch mit dem Webbrowser, aber für sowas benutz ich den NIE.Wenn du mal in der MSDN suchst, wirst du feststellen, dass man das ganz leicht in max. 15 Zeilen Code erledigen kann Wink

Verfasst am: 12.05.2008, 09:20 Aufrufe: 3432

Verfasst am: 22.04.2008, 16:28 Aufrufe: 2307

FileLen ermittelt die Dateigröße in Bytes. Man muß ja erstmal das Maximum der Progressbar einstellen. Und der Timer im Projekt aktualisiert immer die Progressbars. Das ist recht Leistungsschonend und stört den Shredder nicht. Keine Ahnung was du machst, aber mein Example lässt sich ganz normal starten und ausführen. Edit// Zu deinem source: 1. Benutz öfter mal "with" Beispiel: with Prog ...

Verfasst am: 17.04.2008, 12:39 Aufrufe: 1752

Dazu benutze ich "Axialis IconWorkshop".Ein wie ich finde sehr gutes Programm. Besonders da es uns die Möglichkeit bietet Icons mitverschiedenen Formaten und Farbtiefen in einem zu erstellen.Das benötigen wir, weil VB6 eigentlich nur Icons mit max. 24x24 Pixel und 256Bit Farbtiefe zulässt.Ihr werdet beim einbinden eine Fehlermeldung erhalten bei größeren Icons.Aber man kann wie gesagt Icons erstellen, in denen versch ...

Verfasst am: 03.04.2008, 10:04 Aufrufe: 632

hi burak power ich hab mir ja auch schon mal einen flooder geschrieben und optisch find ich eine scrollbar schöner Wink

und naja der code ist auch nicht schwer... naja ich hab mir gedacht wenn es dich interessiert dann Private Sub Form_load() hscroll.max = 6000 'später dann 6 sekunden End Sub Private Sub Command1_Click() Timer2.Enabled = True End Sub Private Sub Command2_Cli ...

Verfasst am: 29.03.2008, 18:45 Aufrufe: 226

Also kann ich auch nicht 100% was das Problem ist. Aber ich schätze mal du übergibst iwo ans winsock falsche bzw. zu hohe Zahlen/Daten. Sprich das winsock verlangt Integer und du übergibst eine zu hohe Zahl. Oder du willst Dateien übertragen die zu groß für den Puffer beim winsock sind. Der Puffer nimmt was ich so weiß max. 65535 Bytes auf. Im tutorial "File transfer" von mir, siehst du, wie man ...

Verfasst am: 19.03.2008, 02:24 Aufrufe: 3257

Beschreibung: Diese Funktion gibt eine Zufallszahl zwischen dem minimalen und maximalen Wert aus. Funktion: Private Function GenerateRndNumber(ByVal [Min] As Int16, _ ByVal [Max] As Int16) As Int16 Try Dim [rnd] As Random = New Random Return [rnd].Next([Min], [Max]) Catch ex As Exception MessageBox.Show(ex.Messa ...

Verfasst am: 17.03.2008, 19:49 Aufrufe: 3257

Die Funktionen: » » » » » » » » » » » Informationen: In diesem Thread werden nützliche Funktionen ihren Platz finden um immer wieder abgerufen und schnell gefunden werden zu können. Dieser Thread wird von den Moderatoren des .NET Bereiches geführt und daher ist es keinem User möglich hier Funktionen selbstständig zu posten. Wenn ihr eine nützliche Funktion habt, dann wendet euch per ...

Verfasst am: 13.03.2008, 20:40 Aufrufe: 2639

Wenn du eine Datei mitschicken willst, kannst du nicht mit der exakten Methode arbeiten. Denn GET lässt nur max ein paar Byte zu. Da musst du schon auf POST ausweichen und mit Sockets arbeiten. Und dein php Skript musst du auch ändern. Es wird dann praktisch ein php Upload Tool

Verfasst am: 18.02.2008, 16:57 Aufrufe: 700

... " ' Fragen deklarieren und definieren Dim Antwort(1 To 4) As String Antwort(1) = "Anwort für erste Frage" Antwort(2) = "Anwort für zweite Frage" Antwort(3) = "Anwort für dritte Frage" Antwort(4) = "Anwort für vierte Frage" ' Die Zählervariable deklarieren und definieren Private Zaehler as Integer Zaehler = 1 ' Max ...

Verfasst am: 14.02.2008, 11:09 Aufrufe: 1269

Gibt verschiedene Möglichkeiten, die alle Vorteile und Nachteile haben. MAC Adresse der Netzwerkkarte ermitteln. Evt. Namen/ID's von Grafikkarte, Monitor etc. ermitteln. Oder max Auflösung. Windows Serial. HDD ID. (Nicht die, die beim formatieren vergeben wird) Andere mußt du dir einfach selbst ausdenken. Außerdem mußt du verschiedene Methoden kombinieren, da sich vieles wie z.B. die MAC ja einfach ändern ...

Verfasst am: 05.02.2008, 20:18 Aufrufe: 4825

Der Fehler kommt wenn du ein Icon mit den falschen Formaten bzw. Farbtiefen erstellst. VB6 kann max mit 24x24x256 umgehen.

Verfasst am: 19.01.2008, 15:32 Aufrufe: 4825

Dazu benutze ich "Axialis IconWorkshop". Ein wie ich finde sehr gutes Programm. Besonders da es uns die Möglichkeit bietet Icons mit verschiedenen Formaten und Farbtiefen in einem zu erstellen. Das benötigen wir, weil VB6 eigentlich nur Icons mit max. 24x24 Pixel und 256Bit Farbtiefe zulässt. Ihr werdet beim einbinden eine Fehlermeldung erhalten bei größeren Icons. Aber man kann wie gesagt Icon ...

Verfasst am: 07.01.2008, 14:33 Aufrufe: 1922

das Problem ist aber das es neben der Session ID auch noch eine Planet ID gibt. (Wer das Spiel nicht so kennt: Man hat max. 9 einzelne Planeten auf denen man Flotte und Gebäude baut) http://unixx.ogame.de/game/index.php?page=buildings&session=xxxxxxx2df61&mode=Forschung http://unixx.ogame.de/game/index.php?page=buildings&session=xxxxxxx2df61&mode=Forschung Woher weiß ogame welchen Planeten i ...

Verfasst am: 23.12.2007, 23:00 Aufrufe: 416

... quot;Handeln" eines Fenster, wie zum Beispiel ein simples QIP (ICQ) Fenster und das Versenden bestimmter Befehle oder sogar das klicken mit der Maus auf dieses Fenster. Ich benutze Visual Studio .NET Professional mit eben Visual Basic (falls die Angaben benötigt werden). Selbst Google oder die Boardsuche hat mir nur VB6 Threads oder eben nur Erklärungen ohne genaue Source Beispiele gebracht. Mfg Max

Verfasst am: 22.12.2007, 16:06 Aufrufe: 625

Naja musst ja nur die Cases ändern und halt angeben das bei einem klick auf die Fläche xy die .height = max ist kannst halt dann nicht mehr true or false nutzen. Wie aber öfters gesagt bin ich noch im anfangs Stadium und versuche nur mein Bestes Wink

Verfasst am: 05.12.2007, 19:13 Aufrufe: 987

... , vbString If Not Left$(strData, 3) Like "+OK" Then ' Daten-Block in Datei schreiben If popTempFile <> "" Then F = FreeFile Open popTempFile For Append As #F Print #F, Replace(strData, vbNewLine & ".", vbNewLine); Close #F ' Fortschritt BytesRead = BytesRead + Len(strData) If BytesRead > Status.Max ...

Verfasst am: 19.10.2007, 12:23 Aufrufe: 1616

Wenn Randomize ohne Argumente aufgerufen wird verändert sie den Wert auf die System zeit. Wie oben bereits geschrieben gibt die Funktion Werte zwischen 0 und 1 zurück. Da wir aber andere Werte haben wollen und keine Komma Zahlen müssen wir diese Werte umrechnen. Um eine Zahl die größer als 1 zu herauszubekommen muss man die Zahl mit dem Maximalen Wert Multiplizieren. Dabei kommt dann eine Komma Zahl zwischen 0 und ...

Verfasst am: 17.10.2007, 20:38 Aufrufe: 2703

... = Int((Rnd * 10) + 1) zufall6 = Int((Rnd * 10) + 1) zufall7 = Int((Rnd * 10) + 1) zufall8 = Int((Rnd * 10) + 1) Text1 = PW(zufall1) & PW(zufall2) & PW(zufall3) & PW(zufall4) & PW(zufall5) & PW(zufall6) & PW(zufall7) & PW(zufall8) Else End If pb1.Max ...

Verfasst am: 27.09.2007, 19:54 Aufrufe: 595

Verfasst am: 27.09.2007, 19:00 Aufrufe: 595

Verfasst am: 25.09.2007, 18:56 Aufrufe: 499

Verfasst am: 25.09.2007, 17:43 Aufrufe: 499

omkfg was kann ich dafür wenn das alles viel anders ist als in Vb.net? ich programmiere jetzt seit max. 4 tagen ich wette nach 4 tagen hast du nicht gewusst wie man mit winsocks arbeitet Razz

Verfasst am: 24.09.2007, 13:51 Aufrufe: 784

txt",

' vorletzte Datei lesen txtLine = ReadLine("C:\Musterdatei.txt", -2) Mein Problem ist wo genau wird jetzt die zeile ausgewählt? Kann mir einer den Code mit dem beispiel von dieser Textdatei zeigen? Hier will ich nur die Zeile 2 & 3 in zwei textboxen anzeigen lassen... Bsp text: 1. ==== mastermaefju ==== 2. Username: Max Mustermann 3. password: h ...

Verfasst am: 22.08.2007, 15:44 Aufrufe: 900

Ich danke dir. Das war der Denkanstoss den ich gebraucht habe. Da lässt sich eh einiges finden. Muß nur mal schauen wie es mit der max Größe aussieht. thx Smile