Visual Basic Forum

Visual Basic Forum
für VB6 und VB.NET Programmierer
 
RegistrierenRegistrieren  LoginLogin

Neues Thema eröffnen   Neue Antwort erstellen    Visual Basic Forum Foren-Übersicht -> [VB6] Tutorials
Autor
Nachricht
Viktor
« Webmaster »<b><font color=red>« Webmaster »</fo



Anmeldedatum: 08.12.2006
Beiträge: 354
Wohnort: Berlin

[Video] Progressbars - Fortschrittanzeige
Verfasst am: 16.12.2006, 21:36

Hier wird euch gezeigt wie ihr eine Fortschrittanzeige in euer Programm einbaut!

Passwort: "vb-x.org"

Download
_________________


Zuletzt bearbeitet von Viktor am 25.07.2007, 14:54, insgesamt 2-mal bearbeitet
 
Klima_Killer_
Newbie
Newbie

Anmeldedatum: 17.06.2007
Beiträge: 18


Verfasst am: 20.06.2007, 08:43

nettes tutorial Very Happy
aber bei mir kommt bei der schleife immer eine fehlermeldunge dass i nicht definiert ist. was soll ich tun? danke schomal Very Happy
 
ZiG_
Überflieger
Überflieger

Anmeldedatum: 07.03.2007
Beiträge: 1248


Verfasst am: 20.06.2007, 09:38

Einfach "i" vorher deklarieren.
Beispiel:

Code:
Dim i as integer

_________________
Wer nicht auf seine Weise denkt, denkt überhaupt nicht. (Oscar Wilde)
 
sata2_
Newbie
Newbie



Anmeldedatum: 11.07.2007
Beiträge: 3


Verfasst am: 13.07.2007, 10:05

sehr gutes tut gut verständlich
 
P5yc|-|0_
Newbie
Newbie

Anmeldedatum: 24.06.2007
Beiträge: 5


Verfasst am: 17.10.2007, 19:38

Also hab mal aus Langeweile bei meinem Pw Genarator eine Progressbardazu gebaut nur wenn ich jezt hingehe und zum beispiel buchstabenmache geht alles perfekt dannach will ich zahlen PW genarieren dann sagt er Laufzeit error wie kann ich das beheben ohne das
Tool neu zustarten

Also hier der kompleter Code

Code:
Private Sub cmd_Generator_Click()

Dim PW(1 To 52) As String

If Option1.Value = True Then

PW(1) = "a"
PW(2) = "b"
PW(3) = "c"
PW(4) = "d"
PW(5) = "e"
PW(6) = "f"
PW(7) = "g"%D
PW(8) = "h"
PW(9) = "i"
PW(10) = "j"
PW(11) = "k"
PW(12) = "l"
PW(13) = "m"
PW(14) = "n"
PW(15) = "o"
PW(16) = "p"
PW(17) = "q"
PW(18) = "r"
PW(19) = "s"
PW(20) = "t"
PW(21) = "u"
PW(22) = "v"
PW(23) = "w"
PW(24) = "x"
PW(25) = "y"
PW(26) = "z"
PW(27) = "A"
PW(28) = "B"
PW(29) = "C"
PW(30) = "D"
PW(31) = "E"
PW(32) = "F"
PW(33) = "G"
PW(34) = "H"
PW(35) = "I"
PW(36) = "J"
PW(37) = "K"
PW(38) = "L"
PW(39) = "M"
PW(40) = "N"
PW(41) = "O"
PW(42) = "P"
PW(43) = "Q"
PW(44) = "R"
PW(45) = "S"
PW(46) = "T"
PW(47) = "U"
PW(48) = "V"
PW(49) = "W"
PW(50) = "X"
PW(51) = "Y"
PW(52) = "Z"

Randomize
zufall1 = Int((Rnd * 52) + 1)
zufall2 = Int((Rnd * 52) + 1)
zufall3 = Int((Rnd * 52) + 1)
zufall4 = Int((Rnd * 52) + 1)
zufall5 = Int((Rnd * 52) + 1)
zufall6 = Int((Rnd * 52) + 1)
zufall7 = Int((Rnd * 52) + 1)
zufall8 = Int((Rnd * 52) + 1)


Text1 = PW(zufall1) & PW(zufall2) & PW(zufall3) & PW(zufall4) & PW(zufall5) & PW(zufall6) & PW(zufall7) & PW(zufall8)
Else
End If


If Option2.Value = True Then

PW(1) = "0"
PW(2) = "1"
PW(3) = "2"
PW(4) = "3"
PW(5) = "4"
PW(6) = "5"
PW(7) = "6"
PW(8) = "7"
PW(9) = "8"
PW(10) = "9"

Randomize
zufall1 = Int((Rnd * 10) + 1)
zufall2 = Int((Rnd * 10) + 1)
zufall3 = Int((Rnd * 10) + 1)
zufall4 = Int((Rnd * 10) + 1)
zufall5 = 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 = 100001
For i = 1 To 100000 Step 1
    pb1.Value = pb1.Value + 1
Next i

End Sub
 
CoP-Killa_
Newbie
Newbie



Anmeldedatum: 07.10.2007
Beiträge: 8


Verfasst am: 17.10.2007, 19:46

Sorry bin noch nich lange dabei falls das jetze falsch is aber das peile ich nich du schreibst :

[vb:1:2b8232f664]
ext1= PW(zufall1) & PW(zufall2) & PW(zufall3) & PW(zufall4) & PW(zufall5) & PW(zufall6) & PW(zufall7) & PW(zufall8)
Else
End If[/vb:1:2b8232f664]

Du machst Else und dann gleich End if ....wenn da stehen würde

[vb:1:2b8232f664]Else
msgbox "So ist das (beispiel)"
end if[/vb:1:2b8232f664]

aber so macht es doch kein sinn wenn nach dem else der if befehl beendet wird.[/vb]
 
Virus_
Newbie
Newbie

Anmeldedatum: 20.03.2008
Beiträge: 11


Verfasst am: 21.03.2008, 08:58

Denke mal das Thema ist ein bisschen älter aber ich habe trotzdem eine Frage unzwar ob man die Progessbar verändern kann also In Farbe bzw. Style?

Würde mich auf eine Antwort freuen..

Mit freundlichen Grüßen
Virus
 
ZiG_
Überflieger
Überflieger

Anmeldedatum: 07.03.2007
Beiträge: 1248


Verfasst am: 21.03.2008, 15:16

Die normale nicht.
Aber du kannst die Progressbar von CoolXP benutzen.
http://www.vbmaster.gbadmin.de/home/home.php
_________________
Wer nicht auf seine Weise denkt, denkt überhaupt nicht. (Oscar Wilde)
 
Virus_
Newbie
Newbie

Anmeldedatum: 20.03.2008
Beiträge: 11


Verfasst am: 21.03.2008, 15:52

Wo muss ich die coolprogress.ocx den reinpacken?
 
ZiG_
Überflieger
Überflieger

Anmeldedatum: 07.03.2007
Beiträge: 1248


Verfasst am: 21.03.2008, 16:04

Normal ist das ein Paket zum installieren.

Aber es sollte auch ohne Probs gehen wenn du die Datei in den system32 Ordner kopierst und dann in CMD die Datei per "regsvr32 dateiname" registrierst.
_________________
Wer nicht auf seine Weise denkt, denkt überhaupt nicht. (Oscar Wilde)
 
Virus_
Newbie
Newbie

Anmeldedatum: 20.03.2008
Beiträge: 11


Verfasst am: 21.03.2008, 16:11

mhh könntest du mir das erklären mit dem registrieren?

Wüerde mich sehr freuen kann mir auch per Pm oder so schreiben oder mich in ICQ adden oder so ^^
 
ZiG_
Überflieger
Überflieger

Anmeldedatum: 07.03.2007
Beiträge: 1248


Verfasst am: 21.03.2008, 16:36

Ich habs doch schon erklärt? Rolling Eyes

Die ocx in Windows\system32\ kopieren.
Dann CMD starten. (Windowstaste + R) ("cmd" eintippen + Enter)
Dann in CMD in den system32 Ordner wechseln.
"regsvr32 dateiname" eintippen und Enter.

Statt dateiname sollte natürlich der Name der ocx Datei dort stehen.
_________________
Wer nicht auf seine Weise denkt, denkt überhaupt nicht. (Oscar Wilde)
 
Virus_
Newbie
Newbie

Anmeldedatum: 20.03.2008
Beiträge: 11


Verfasst am: 21.03.2008, 17:01

Aso okay habe das eben nicht verstanden..

Und wie kann ich die dann öffnen? Also in VB6 unter Komponenten`?
 
VariouS_
Newbie
Newbie



Anmeldedatum: 20.12.2007
Beiträge: 13
Wohnort: bei Köln


Verfasst am: 21.03.2008, 18:58

Cooles Tut. Kann ich für mein Programm gut gebrauchen Smile

Danke dafür, du machst echt subba Tuts.

Aber warum komme ich nicht auf die Page von Security Workstation?
Immer wenn ich die URL ausm Vid eingebe innen Browser, muss ich ein Username und PW eingeben.
Wieso klappt das nicht? Embarassed


MfG VariouS
 
ZiG_
Überflieger
Überflieger

Anmeldedatum: 07.03.2007
Beiträge: 1248


Verfasst am: 21.03.2008, 19:03

Denke mal die page gibt es nicht mehr.
Und die Passwortabfrage wird wohl ein .htaccess Schutz sein^^

@Virus

Strg+T
_________________
Wer nicht auf seine Weise denkt, denkt überhaupt nicht. (Oscar Wilde)
 
VariouS_
Newbie
Newbie



Anmeldedatum: 20.12.2007
Beiträge: 13
Wohnort: bei Köln


Verfasst am: 21.03.2008, 21:40


Ja aber woher kommen die ganzen Tut´s???
Weil da ist ja überall das Wasserzeichen unten drin. Oder sind das alte Tuts, die irgendwo auftauchen??

MfG
_________________


 
Neues Thema eröffnen   Neue Antwort erstellen    Visual Basic Forum Foren-Übersicht -> [VB6] Tutorials

Tags: programm

 
 Verwandte Themen   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Visual Basic Download ? 1743 03.05.2011, 07:38
Keine neuen Beiträge Api Download in Prozent + Kb anzeige + Progrezzbar 1345 21.10.2007, 13:03
Keine neuen Beiträge Download 1359 30.08.2007, 15:45
Keine neuen Beiträge Download mit Internet Explorer Object 923 18.08.2008, 19:00
Keine neuen Beiträge Visual Basic 6 download 3701 26.05.2007, 11:51
 



[ Time: 0.5123s ][ Queries: 141 (0.0252s) ][ GZIP on - Debug on ]