vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
sevDataGrid - Gönnen Sie Ihrem SQL-Kommando diesen krönenden Abschluß!  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2025
 
zurück

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Fortgeschrittene Programmierung
Re: Form starten wenn Smartcard erkannt wird. 
Autor: audaxx
Datum: 06.02.04 18:03

Hi,

bastele auch gerade an einem Card-Reader Projekt, bei dem ich verschlüsselte Daten auf einer KArte speichere und so allerhand versuche, doch auch nicht alles so funzt, wie ich mir das vorstelle..

Nun zu Deinem Prob :

Suche doch in dem Rückgabestring (Was auf der KArte geschrieben ist), nach dem Muster oder nach dem Teilstring, der dann das Popup verursachen soll...

ungefair so :

If Cardcontent = "Das soll drauf sein" 'Cardcontent ist der Rückgabestring
then DeineHauptform.hide
DeinPopup.show
sleep 1500
DeinPopup.hide
DeineHauptform.show

else
DeineHauptform.show

Einen netter Introscreen könnte wie fogt aussehen :

Private Sub Splash_Screen()
'Funktion für Startbildschirm

Dim Breite As Long 'Breite der Form
Dim i As Integer 'Zählervariable
Dim j As Integer 'Zählervariable

splash.Visible = True

Breite = splash.Width

splash.Width = 0 'FormBreite auf 0 setzen

splash.Show 'Form anzeigen
splash.Left = splash.Left - 1275

While splash.Width < Breite 'Form einblenden
splash.Width = splash.Width + 30
splash.Refresh
Sleep 30
Wend

For i = 30 To 0 Step -2 'Form "shaken"
For j = 1 To 40
splash.Top = splash.Top + i
splash.Left = splash.Left + i
splash.Top = splash.Top - i
splash.Left = splash.Left - i
Next j
Next i

Sleep 1500 ' 1,5 Sekunden warten
Unload splash 'Splashscreen unloaden
End Sub

Um ein Art der Zeitverzögerung einzubauen (Form zeigen --> und wieder verschwinden zu lassen) musst Du folgende Kernelinfo miteinbinden :

Private Declare Sub Sleep Lib "Kernel32" (ByVal dwMilliseconds As Long)

Viel erfolg

Ramin
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
Form starten wenn Smartcard erkannt wird.888Der_Designer02.02.04 12:56
Re: Form starten wenn Smartcard erkannt wird.474audaxx06.02.04 18:03
Vielen Dank !!!424Der_Designer07.02.04 13:31
Re: Form starten wenn Smartcard erkannt wird.459yeli01.09.05 09:04

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

Funktionen:  Zum Thema  |  GesamtübersichtSuchen 

nach obenzurück
 
   

Copyright ©2000-2025 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel