Lupuz.de: Artikel-Portal / Magazin

Zurück   Postpla.net - die Forum Community > PC, Internet und Technik > Coder's Area

in visual basic "zeichnen"

Anzeigen:

Thema geschlossen
 
Themen-Optionen Thema durchsuchen
Arcanum
Alt 07.12.2003, 16:49   #1
Standard in visual basic "zeichnen"

Moin leutz!

ich schreib morgen info über zeichnen in visual basic...
ich kann das eigentlich! auch alles, nur eine sache geht net...
wir sollen die teile per for-next schleife bewegen, hier mal ein beispiel anhand eines kreises

Option Explicit

Private Sub cmdStart_click()
dim i as integer

for i = 1 to 500
me.circle(300+i,300+i),50,vbred

soweit so gut... dann zeichnet er den kreis... nu muss ich ihn "löschen", als mit der hintergrundfarbe übermalen:

me.circle(300+i,300+i),50,me.backcolor

klappt auch... nur irgendwie macht der das in einer dermaßen schnellen geschwindigkeit...... wenn jemand weiß wie ich das langsamer hinbekomme, wärs nett wenns dus postest

danke schonmal...
 
 
Nach oben
Senjo
Alt 07.12.2003, 16:59   #2
Standard

Muss du da dann nicht irgendwo Pause (dann sek wie lang die Pause sein soll) hinschreiben oder so???
 
 
Nach oben
ANSI Lady
Alt 07.12.2003, 21:10   #3
Standard

in VB gibts doch sicher auch noch den alten Klassiker 'step' ?

frei nach dem Motto :
for - to - next ... step 0.01 ?

VB is nicht so mein Ding, Sorry... Vielleicht hilfts Dir ja trotzdem weiter ?

Gruß &&
ANSI
 
 
Nach oben
an3
Alt 07.12.2003, 21:35   #4
Standard

wenn du mir verzeihst Post ich hier was rein: Versuchs mal in Google mit Delay oder sowas ähnlichem...geht dann glaube ich in Millisekunden...also musst du da auch entsprechende Werte ausprobieren...500...1000...etc.

Bin grad aber zu fertig um das zu machen...deshalb die Bitte um Entschuldigung!
 
 
Nach oben
fubi
Alt 07.12.2003, 22:09   #5
Standard

du brauchst ein Delay in der schleife:

Code:
' API Declaration
Public Declare Function GetTickCount Lib "kernel32" () As Long


Public Sub Delay(nSekunden As Long)
  Dim TimeOut As Long
    
  ' Abbruchbedingung für die Do Loop Schleife ermitteln
  TimeOut = (GetTickCount / 1000) + nSekunden
    
  Do
    ' Systemevents zulassen
    DoEvents
      
    ' TimeOut erreicht?
  Loop Until TimeOut < (GetTickCount / 1000)
End Sub
Jetzt kannst du mit
Delay 5
z.b. den Ablauf 5 sekunden anhalten lassen.
 
 
Nach oben
Ähnliche Themen, die dich vielleicht interessieren
Thema Autor Forum Antworten Letzter Beitrag
DirectX SDK unter Visual Basic? Mad Matty Coder's Area 0 08.09.2007 00:11
visual basic ich bins Coder's Area 25 25.02.2005 19:24
visual basic 6 -help- ak-itchin Coder's Area 6 12.02.2002 11:14
Visual Basic GeNeRaL-Z Coder's Area 5 06.04.2001 20:19
wo Visual Basic 6 downloaden btw bestellen ? Njubi Coder's Area 3 15.12.2000 10:13
Anzeigen:
Thema geschlossen

Lesezeichen

Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche



Alle Zeitangaben in WEZ +2. Es ist jetzt 19:25 Uhr.


Lupuz.de - wir können auch anders!
©1998 - 2008, Lupuz:Information-Network
Powered by vBulletin Version 3.7.1 (Deutsch), Jelsoft Enterprises Ltd.
Grüne Links?

SEO by vBSEO 3.2.0 ©2008, Crawlability, Inc.