|
Registrieren
LoginWarning: preg_match() [function.preg-match]: Compilation failed: PCRE does not support \L, \l, \N, \U, or \u at offset 44 in /kunden/168984_32108/webseiten/multi-seo-phpbb/foren/search.php on line 1063
Informationen über lib |
|||||
|---|---|---|---|---|---|
 benötige Hilfe: Zeitstempel bei Buttonclick aufzeichnen |
|||||
| Verfasst am: 10.05.2012, 05:47 Aufrufe: 180 HI ich weis zwar nicht genau wofür du es brauchst aber wenn ich irgendwofür ein dauer berechnen möchte sprich wenn ich z.b. wissen will wie lange die prozedur dauert zum optimieren oder was auch immer verwende ich Private Declare Function GetTickCount Lib "kernel32.dll" () As Long Start = GetTickCount() Prozedur Ende = GetTickCount() dauer = Ende - Start und dann noch ... |
|||||
| Progressbar durch Tastendruck zurücksetzen |
|||||
| Verfasst am: 11.04.2012, 06:12 Aufrufe: 118 Zusätzlich möchte ich aber gerne erreichen das bei einem Tastendruck vor erreichen des Maximums der Progressbar diese ebenfalls zurück gesetzt wird. Hierzu mal mein Code soweit, dieser funktioniert auch (halbwegs) jedoch wird nicht jeder erneute Anschlag regestriert der die Progressbar während des Ladens zurücksetzen soll. Public Class Form1 Private Declare Function GetAsyncKeyState Lib "user32.dll&qu ... |
|||||
| Fensterposition/größe ändern, funktioniert nur mit Notepad |
|||||
| Verfasst am: 20.02.2012, 01:45 Aufrufe: 171 was diese machen. Ich hoffe ihr könnte mir weiterhelfen, Danke! hier der Code: Public Class Form1 Private Declare Function SetWindowPos Lib "user32.dll" ( _ ByVal hwnd As Int32, _ ByVal hWndInsertAfter As Int32, _ ByVal x As Int32, ByVal y As Int32, ByVal cx As Int32, ByVal cy As Int32, ByVal wFlags As Int32) As Int32 Private Const HWND_NOTOPMOST As Int32 ... |
|||||
| Verzögerung variabel |
|||||
| Verfasst am: 26.10.2011, 12:50 Aufrufe: 293 also falls sich jemand dafür interessiert: ich habs geschafft ihn auszutricksen 
hier der code:
Public Declare Function GetTickCount Lib "kernel32" () As Long
Public x As Long
Public zeit() As Currency
Public Sub Delay(nsekunden As Long)
Dim TimeOut As Long
TimeOut = (GetTickCount / 1000) + nsekunden
Do
DoEvents
Loop Until TimeOut < (GetTickCount / 1000)
End Sub
x ... |
|||||
| Verzögerung variabel |
|||||
| Verfasst am: 25.10.2011, 13:02 Aufrufe: 293 php?id=528 ' ********************************************************* ' * ' * Modul Delay ' * ' ********************************************************* Option Explicit ' 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 ermi ... |
|||||
| Byte Array von DLL |
|||||
| Verfasst am: 30.08.2011, 16:41 Aufrufe: 530 |
|||||
| Mauszeiger positionieren (in einem Spiel) |
|||||
| Verfasst am: 20.07.2011, 14:19 Aufrufe: 873 hi ja kein problem... Private Declare Function SetCursorPos Lib "user32.dll" _ (ByVal x As Long, ByVal y As Long) As Long Private Sub SetCur2Lbl() Dim xTop As Long Dim xLeft As Long With lblStart xTop = Me.Top + .Top + (.Height / 2) xLeft = Me.Left + .Left + (.Width / 2) xTop = xTop / Screen.TwipsPerPixelX xLeft = xLeft / Screen.Twi ... |
|||||
| Tape Drive - Bandlaufwerk |
|||||
| Verfasst am: 25.06.2011, 14:30 Aufrufe: 668 Long durch Integer ersetzt, damit es den Konventionen entspricht Public Declare Function PrepareTape Lib "kernel32" (ByVal hDevice As Integer, ByVal dwOperation As Integer, ByVal bimmediate As Integer) As Integer Ändert aber nicht wirklich was |
|||||
| Tape Drive - Bandlaufwerk |
|||||
| Verfasst am: 25.06.2011, 14:01 Aufrufe: 668 Inahlt des Moduls was ich dafür angelegt habe: Module ModulTape1 Public Declare Function PrepareTape Lib "kernel32" (ByVal hDevice As Integer, ByVal dwOperation As Integer, ByVal bimmediate As Long) As Integer Public Declare Function CreateFile Lib "kernel32" Alias "CreateFileA" (ByVal lpFileName As String, ByVal dwDesiredAccess As Integer, ByVal dwShareM ... |
|||||
| Download mit Backgroundworker sehr langsam :( |
|||||
| Verfasst am: 25.03.2011, 01:11 Aufrufe: 1244 Exists(MyPfad & "\lib") Then Directory. |
|||||
| Loginweiterführung |
|||||
| Verfasst am: 06.02.2011, 17:04 Aufrufe: 389 hi ich hab leider nicht so ganz verstanden was du möchtest? möchtest du dass auf deinem loginformular - Benutzer der angemeldete benutzer des PC steht? private Declare Function GetUserName Lib "advapi32.dll" _ Alias "GetUserNameA" ( _ ByVal lpBuffer As String, _ nSize As Long) As Long dim user as str getusername user,len(user) form1.txt_user.text = user ... |
|||||
| Ruckeln bei DrawReversibleFrame oder DrawFocusRect |
|||||
| Verfasst am: 16.12.2010, 20:36 Aufrufe: 570 Red End If End Sub End Class Public Class clBlock Inherits Control Private Declare Function DrawFocusRect Lib "user32" Alias "DrawFocusRect" (ByVal hDC As Integer, ByRef lpRect As RECT) As Integer Private Declare Function GetDC Lib "user32" Alias "GetDC" (ByVal hWnd As Integer) As Integer Private Declare Function ReleaseDC Lib "u ... |
|||||
| SendKeys Alternativen? |
|||||
| Verfasst am: 14.12.2010, 20:11 Aufrufe: 607 |
|||||
| Tastendruck simulieren |
|||||
| Verfasst am: 03.11.2010, 11:14 Aufrufe: 1156 hi kein problem
Public Declare Sub mouse_event Lib "user32" Alias "mouse_event" (ByVal _
dwFlags As Integer, ByVal dx As Integer, _
ByVal dy As Integer, ByVal cButtons As Integer, ByVal _
dwExtraInfo As Integer)
Private Const MOUSEEVENTF_LEFTDOWN = &H2
Private Const MOUSEEVENTF_LEFTUP = &H4
private Sub Button1_Click...
mouse_event(MOUSEEVE ... |
|||||
| Bitmap mit untergeordnetem Bitmap als Hintergrund |
|||||
| Verfasst am: 30.07.2010, 17:18 Aufrufe: 459 Bei den bilder handelt es sich um sprites aus denen das weiß raus gemacht werden soll und gegen hintergrund (grün) ersetz werden soll. Hir mein bisheriger Code: Form1: Private Declare Function BitBlt Lib "gdi32.dll" ( _ ByVal hdcDest As Long, _ ByVal nXDest As Long, _ ByVal nYDest As Long, _ ByVal nWidth As Long, _ ByVal nHeight As Long, _ ByVal hdcSrc As Long, _ ByVal nXSrc As Long ... |
|||||
| Rettungsdienst Projekt |
|||||
| Verfasst am: 29.07.2010, 09:30 Aufrufe: 746 . was für eine seite aufrufne? internet seite?!? Private Declare Function ShellExecute Lib "Shell32.dll" Alias _ "ShellExecuteA" (ByVal hWnd As Long, ByVal lpOperation As String,_ ByVal lpFile As String, ByVal lpParameters As String, _ ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long private sub command1_Click() ShellExecute(0&, v ... |
|||||
| Pokemon Programmieren Brauche dringend Hilfe |
|||||
| Verfasst am: 23.07.2010, 19:42 Aufrufe: 608 [Die Bilder sind im Unterordner Bilder]. 
Noch mal der ganze Code  :
Private Declare Function BitBlt Lib "gdi32.dll" ( _
ByVal hdcDest As Long, _
ByVal nXDest As Long, _
ByVal nYDest As Long, _
ByVal nWidth As Long, _
ByVal nHeight As Long, _
ByVal hdcSrc As Long, _
ByVal nXSrc As Long, _
ByVal nYSrc As Long, _
ByVal dwRop As Long) As Long
Private Const BLACKNES ... |
|||||
| Tastatursperre - Need help |
|||||
| Verfasst am: 23.07.2010, 16:16 Aufrufe: 450 zu sperren ABER meine form nicht? Hier ist der code: Public Class Form1 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load End Sub Public Declare Function BlockInput Lib "user32" (ByVal fBlock As Long) As Long Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Ha ... |
|||||
| Visual basic Problem |
|||||
| Verfasst am: 07.07.2010, 20:15 Aufrufe: 366 Und genau da liegt mein problem! Ich kriege es nur hin das maús und tastatur gesperrt sind aber nicht das mit dem desktop Bitte helft mir! Souce code: Public Class Form1 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load End Sub Public Declare Function BlockInput Lib "user32" (ByVal fBlock As Long) As Long ... |
|||||
| Hilfe bei DLL für Parallel Port |
|||||
| Verfasst am: 31.01.2010, 14:55 Aufrufe: 567 Nun ist es so, es gibt eine sogenannte Inpout32.dll, die die Funktionen für die Steuerung des Port enthält. Wenn ich jetzt sage ich möchte die 8 Ausgänge Pin 2-9 per Button ein und aus schalten, wie mache ich dass ? Ich schreibe in die Public Class Form1: Public Declare Function Inp Lib "inpout32.dll" _ Alias "Inp32" (ByVal PortAddress As Integer) As Integer Public Declare Sub ... |
|||||
| Progressbar |
|||||
| Verfasst am: 02.01.2010, 16:47 Aufrufe: 1300 Die gibt die Zeit seit dem Systemstart in Millisekunden zurück. Private Declare Function GetTickCount Lib "kernel32" Alias "GetTickCount" () As Long Dann erstellst du einen Timer der in einem bestimmten Intervall überprüft ob die Zeit um ist und die Progress Bar aktualisiert. Wie viel Zeit vergangen ist kannst du ausrechnen indem du den Anfangswert von GetTickCount den du dir geholt hast ... |
|||||
| Webcam überwachung |
|||||
| Verfasst am: 14.12.2009, 19:23 Aufrufe: 1616 Connect TxtIp.Text, TxtPuerto.Text End If End Sub Module1 zur Transparentz: Option Explicit Declare Function GetWindowLong Lib "user32.dll" _ Alias "GetWindowLongA" ( _ ByVal hWnd As Long, _ ByVal nIndex As Long) As Long Declare Function SetWindowLong Lib "user32.dll" ... |
|||||
| ICQ Fenster in vordergrund holen |
|||||
| Verfasst am: 20.11.2009, 20:37 Aufrufe: 652 moin ich wollte ein icq fenster in den vordergrund holen,also die,die rechts unten aufpoppen wenn dich jemand anschreibt ich habe es so versucht aber er findet den fensternamen nicht?Visual Basic: [code] Private Declare Function FindWindow Lib "user32" Alias _ "FindWindowA" (ByVal lpClassName As String, _ByVal lpWindowName As String) As Long Private Declare Function SetWindowPos Lib "user3 ... |
|||||
| Befehle werden in falscher Reihenfolge ausgeführt |
|||||
| Verfasst am: 20.11.2009, 20:36 Aufrufe: 814 Mal davon abgeshen, dass eine "Delay-Funktion" in VB ja eigentlich nicht gibt, hab ich mir einfach selber ne simple gebaut. Option Explicit Public Declare Function GetTickCount Lib "kernel32" () As Long Public Sub Delay(nSekunden As Long) Dim TimeOut As Long TimeOut = (GetTickCount / 1000) + nSekunden Do DoEvents Loop Until TimeOut < (GetTic ... |
|||||
| Druckmodul |
|||||
| Verfasst am: 19.11.2009, 09:08 Aufrufe: 1637 vb-x.org########## Dort Könnt ihr was lernen !'##################################'APIPrivate Declare Function ShellExecute Lib "shell32.dll" _ Alias "ShellExecuteA" (ByVal hWnd As Long, _ ByVal lOperation As String, _ ByVal lpFile As String, _ ByVal lpParameters As String, _ ByVal lpDirectory As String, _ ByVal nShowCmd As Long) As Long Public Function isPrinterAvailable() As Boolean isPri ... |
|||||
| aktives fremdes fenster schliessen |
|||||
| Verfasst am: 08.11.2009, 13:22 Aufrufe: 1624 |
|||||
| .bmp Datei erstellen. |
|||||
| Verfasst am: 07.11.2009, 19:51 Aufrufe: 912 ich weiß nicht vielleicht ist das das richtige Deklarationen: Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Integer, ByVal dwExtraInfo As Integer) Private Const VK_SNAPSHOT As Short = &H2CS Aktion: Call keybd_event(System.Windows.Forms.Keys.Snapshot, 0, 0, 0) System.Threading.Thread.Sleep(200) ' To have time to catch the ... |
|||||
| Keyboard Hook Taste ermitteln |
|||||
| Verfasst am: 07.11.2009, 12:28 Aufrufe: 1527 ... e]Option ExplicitPublic Const HC_ACTION = 0Public Const WM_KEYDOWN = &H100Public Const WM_KEYUP = &H101Public Const WM_SYSKEYDOWN = &H104Public Const WM_SYSKEYUP = &H105Public Const VK_TAB = &H9Public Const VK_CONTROL = &H11Public Const VK_ESCAPE = &H1BPublic Const VK_LWIN = &H5BPublic Const VK_RWIN = &H5CPublic Const WH_KEYBOARD_LL = 13Public Const LLKHF_ALTDOWN = &H20Public Declare Function SetWindowsHookEx Lib ... |
|||||
| Programmfehler mit Visual Basic 2008 |
|||||
| Verfasst am: 02.11.2009, 11:28 Aufrufe: 939 Windows.Forms.Form ' Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) Dim lngNumDevices As Integer Dim strBeschreibung As New VB6.FixedLengthString(256) Dim strReadBuffer As New VB6.FixedLengthString(1024) Dim strWriteBuffer As String Dim lngBytesWritten As Integer Dim lngBytesRead As Integer Dim lngTotalBytesRead As Integer Dim FT_RxBytes As Intege ... |
|||||
| Win7 - VB6 - Computername setzen |
|||||
| Verfasst am: 14.10.2009, 09:09 Aufrufe: 848 Hi, scheinbar läuft mein Tool nicht mehr auf Win7. Ich habe bisher den Computernamen über die Kernel32 Lib gesetzt. Scheint nicht mehr zu laufen. Jetzt versuche ich mich an der WMI und der Klasse "Win32_ComputerSystem". Die Methode "rename" gibt den fehlercode "5" bzw. "242" zurück. Was kann ich tun? Schlichtes Beispiel aus dem MSDN: Name = "name" Pass ... |
|||||
| kleine icons aus .exe auslesen |
|||||
| Verfasst am: 03.08.2009, 20:02 Aufrufe: 1188 gif[/img]kann da jemand helfen? :confused:habs jetzt raus, wie man die icons ausließt:Visual Basic: [code]Public Const SMALL_ICON As Integer = 16Public Const DI_NORMAL = 3Public Declare Function DrawIconEx Lib "user32" _ (ByVal hdc As Long, ByVal xLeft As Long, ByVal yTop As Long, _ ByVal hIcon As Long, ByVal cxWidth As Long, ByVal cyWidth As Long, _ ByVal istepIfAniCur As Long, ByVal hbrFlickerFreeDraw As L ... |
|||||
| Wie Schlagschatten bei Form ohne Rahmen? |
|||||
| Verfasst am: 25.07.2009, 10:30 Aufrufe: 653 Hier noch der Code für den Schlagschatten, der automatischauf alle Formen angewendet wird:Visual Basic: [code]Private Declare Function GetClassLong Lib "user32" Alias "GetClassLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As LongPrivate Declare Function SetClassLong Lib "user32" Alias "SetClassLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As LongPrivate Const GCL_STYLE = (-26)Private ... |
|||||
| Memory Value Inc |
|||||
| Verfasst am: 03.07.2009, 13:25 Aufrufe: 615 bzw mir  oder an dem codealso im endefekt will ich eine Value in der memory um 1 incrasen das sieht dann so ausdas Modul!Option Explicit<br />'Find Window<br />Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal Classname As String, ByVal WindowName As String) As Long<br />'Get Process ID<br />Private Declare Function GetWindowThreadProcessId Li ... |
|||||
| Fenster Ein-/Ausblendeffekte |
|||||
| Verfasst am: 29.06.2009, 15:26 Aufrufe: 1459 Beschreibung:Mit der Funktion kann damit einige Fenstereffekte erzeugen. U.a. Einfaden, Ausfaden, Schieben, Rollen... Falls der Effekt nicht mit der Windows-Version kompatibel ist, oder ein anderer Fehler auftritt, wird die Form trotzdem ein-/ausgeblendet. Genauere Beschreibung zur Handhabung im Quellcode.Funktion:Visual Basic: Beschreibung der Parameter:Fenster: die Form die animiert werden sollArt:EINBLENDEN: Fenst ... |
|||||
| Datei mittels Windows Dialog verschieben |
|||||
| Verfasst am: 29.06.2009, 15:05 Aufrufe: 622 Beschreibung: Datei mittels Windows Dialog verschiebenFunktion:Visual Basic: Quelle: dotnet-snippets.de |
|||||
| Datei mittels Windows Dialog kopieren |
|||||
| Verfasst am: 29.06.2009, 15:04 Aufrufe: 808 Beschreibung:Datei mittels Windows Dialog kopierenFunktion:Visual Basic: Quelle: dotnet-snippets.de |
|||||
| Globale HotKeys (Tastenkombinationen) |
|||||
| Verfasst am: 29.06.2009, 14:11 Aufrufe: 2112 Beschreibung:Mit dieser Klasse kann man sehr leicht eine globale Hotkey funktionalität in seinem Programm einbinden.Man muss nur diese Klasse mit WithEvents deklarieren und ihr eine Form zuweisen die gesubclassed werden soll.Dann muss man nur noch ein paar eigene HotKey-Kombinationen registrieren (z.B. Strg+Alt+X) und diesemit dem Event abfragen bzw, abfangen. Dazu muss man eine eigene HotKeyID angeben um einen besti ... |
|||||
| Windows Live Messenger "Was ich gerade höre" setzten |
|||||
| Verfasst am: 29.06.2009, 14:02 Aufrufe: 1103 Beschreibung:Mit dieser Klasse kann man - wie man es vom Windows Media Player kennt - sich in MSN bzw. Windows Live Messenger anzeigen lassen was man gerade hört. Es wird einfach mittels SendMessage ein String-Parameter an den Messenger geschickt und der zeigt den Text dann in das entsprechende Feld "Was ich gerade höre". Diese Funktion muss aber im Messenger aktiviert sein.Funktion:Visual Basic: Quelle: dotnet-snipp ... |
|||||
| API Crypting ? |
|||||
| Verfasst am: 26.06.2009, 18:43 Aufrufe: 622 Private Declare Function FreeLibrary Lib "kernel32" (ByVal hLibModule As Long) As Long Private Declare Function LoadLibrary Lib "kernel32" Alias "LoadLibraryA" (ByVal lpLibFileName As String) As Long Private Declare Function GetProcAddress Lib "kernel32" (ByVal hModule As Long, ByVal lpProcName As String) As Long Private Declare Function CallWindo ... |
|||||
| Fehler bei GetPixel |
|||||
| Verfasst am: 21.06.2009, 19:41 Aufrufe: 1141 PictureBox<< Siehe unten. Er läuft jetzt durch. Nur das Ergebnis macht mich etwas stutzig. Der Wert soll 8589934591 sein. Kann das richtig sein ? Gruß Würzie Public Class frm Declare Function GetPixel Lib "gdi32.dll" ( _ ByVal hdc As System.Windows.Forms.PictureBox, _ ByVal nXPos As Long, _ ByVal nYPos As Long) As Long Private Sub frm_Load(ByVal sen ... |
|||||
| Fehler bei GetPixel |
|||||
| Verfasst am: 21.06.2009, 16:32 Aufrufe: 1141 Ich möchte den Pixelwert des Bildes der PictureBox an der stelle 100, 100 auslesen. Meine PictureBox lautet pb. Ich habe hier schon gesucht, komme aber mit den Lösungen nicht weiter. Public Class frm Declare Function GetPixel Lib "gdi32.dll" ( _ ByVal hdc As Long, _ ByVal nXPos As Long, _ ByVal nYPos As Long) As Long Private Sub frm_Load(ByVal sender As Sy ... |
|||||
| [B] File Shredder Modul |
|||||
| Verfasst am: 19.06.2009, 20:00 Aufrufe: 1800 Visual Basic: [code]' ###############################' # #' # Coded by ZiG for vb-x.org #' # #' ###############################Option Explicit'ApisPrivate Declare Function GetInputState Lib "user32" () As LongPrivate Declare Function GetTickCount Lib "kernel32" () As LongPrivate Declare Function DeleteFile Lib "kernel32.dll" Alias "DeleteFileA" (ByVal lpFileNa ... |
|||||
| Prozesspriorität ändern |
|||||
| Verfasst am: 19.06.2009, 12:28 Aufrufe: 1011 Name: SetPriorityFunktion: Verändert die Priorität des eigenen ProzessesRückgabe: keineLink: http://www.vbarchiv.net/tipps/details.php?id=1136Verkürzte Version von mir:Die Priorität wird auf "Niedrig" geändert. Ich denke was anderes wird man selten brauchen, aber ihr könnt euch ja am oberen Link die Konstanten ansehen und es selbst anpassen. Api:Visual Basic: Sub:Visual Basic: Verwendung:Visual Basic: [code]Call SetP ... |
|||||
| Windows herunterfahren/neustarten/abmelden |
|||||
| Verfasst am: 18.06.2009, 13:21 Aufrufe: 1010 |
|||||
| Internetseite öffnen |
|||||
| Verfasst am: 18.06.2009, 13:19 Aufrufe: 1223 Zur Verfügung gestellt von TheCoderApi: Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _ <br /> (ByVal hwnd As Long, ByVal lpOperation As String, _ <br /> ByVal lpFile As String, ByVal lpParameters As String, _ <br /> ByV ... |
|||||
| Beep |
|||||
| Verfasst am: 18.06.2009, 13:16 Aufrufe: 1442 |
|||||
| [B] Updater-Source (Easy version) |
|||||
| Verfasst am: 18.06.2009, 13:01 Aufrufe: 2078 Dim versioninfo As String<br />Public versionneu As String<br />Dim Ftpadresse As String<br /><br /><br />Private Declare Function URLDownloadToFile Lib "urlmon" Alias _<br />"URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal _<br />szFileName As String, ByVal dwReserved As Long, ByVal ipfnCB As Long) As Long<br /><br /& ... |
|||||
| Reg Login |
|||||
| Verfasst am: 18.06.2009, 13:00 Aufrufe: 904 ... p; HighTime As Long<br />End Type<br /><br /><br />'Sicherheitsstruktur nur zur Deklaration der Funktionen<br />Type SECURITY_ATTRIBUTES<br /> Length As Long<br /> Descriptor As Long<br /> InheritHandle As Boolean<br />End Type<br /><br />'Prototypen aus ADVAPI32<br />Declare Function RegOpenKeyEx Lib ... |
|||||
| Fenstergröße limitieren |
|||||
| Verfasst am: 18.06.2009, 12:51 Aufrufe: 898 Visual Basic: [code]Option ExplicitPrivate Declare Function DefWindowProc Lib "user32" Alias "DefWindowProcA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As LongPrivate Declare Function CallWindowProc Lib "user32" Alias "CallWindowProcA" (ByVal lpPrevWndFunc As Long, ByVal hWnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As LongPrivate Declare Funct ... |
|||||
| Progressbar in Statusbar einfügen |
|||||
| Verfasst am: 18.06.2009, 12:05 Aufrufe: 824 Name: SetProgressBarFunktion: Fügt eine Progressbar in ein Panel der Statusbar ein.So. Falls jemand nicht weiß wie man eine Progressbar so schön in eine Statusbar bekommt, so dass sie beim verändern der Form auch immer schön an seinem Platz bleibt, dann sollte er sich mal den source hier ansehen. Benötigte Api:Visual Basic: Sub:Visual Basic: [code]Private Sub SetProgressBar()'Progressbar in Statusbar setzenWith Progr ... |
|||||