Visual Basic Forum

Verfasst am: 17.09.2011, 09:31 Aufrufe: 142

Verfasst am: 05.04.2010, 13:28 Aufrufe: 776

(klick aufs programm) ein über den Desktop fliegender WindowsXp start-button, simulierte gravitation, etc. nervt euch der windows-rechner auch? - wie wärs mit dem! Umrechnen verschiedenster einheiten ein auf .txt basierender texteditor, der jedoch weitere formatierung unterstützt ein, allein dem spaß dienendes zeichenprogramm mit interessanten effekten rechner und umrechner in einem! ...

Verfasst am: 16.06.2009, 07:06 Aufrufe: 356

Wie kann ich aber programmtechnisch feststellen, welches Control die P2 überhaupt beinhaltet. Oder anders formuliert. Ich habe erwartet, daß P2.parent auf P1 verweist. Das ist aber nicht der Fall. Das Parent von verschachtelten Controls ist immer das Forumular form1. Wenn ich nun zB Mauskoordinaten von P2 auf Formularkoordinaten umrechnen will brauche ich die genaue Abfolge der Container und frage mich , woher ich d ...

Verfasst am: 09.08.2008, 12:52 Aufrufe: 701

Verfasst am: 18.07.2008, 16:11 Aufrufe: 733

Verfasst am: 11.07.2008, 18:17 Aufrufe: 1195

Verfasst am: 06.07.2008, 17:07 Aufrufe: 788

... nnerhalb der ListBox länger ist als die Listbox breit? Nun ja, man fügt mit Hilfe der SendMessage-API Funktion einen horizontalen Scrollbar hinzu - und dasganze nur nach Bedarf!Visual Basic: SendMessage-Funktion erwartet als dritten Parameter (wParam) die Breite des längsten Eintrags und zwar in der Maßeinheit Pixel!Die Breite eines Eintrags kann man ja mit der TextWidth-Funktion ermitteln, und in Pixel umrechnen ...

Verfasst am: 02.07.2008, 19:07 Aufrufe: 690

Das Problem mit den Variablen kannst du mit dem IO-Namespace bzw der Streamreader/writerklasse erledigen, gibt hier genug Tuts Threads dazuBeim zweiten Problem würde ich die Zeit erst mal in Sekunden umrechnen lassen und dann beide voneinander abziehen lassen. Solltest wohl wissen wie man das macht Wink

also das Umrechnen

Verfasst am: 02.04.2008, 15:52 Aufrufe: 1426

Verfasst am: 04.12.2007, 14:21 Aufrufe: 477

hier ist der code für das umrechnen der zeit ' Millisekunden nach mm:ss umrechnen Private Function AVI_FormatTime( _ ByVal lMSec As Long) As String Dim iMin As Integer Dim iSec As Integer iSec = Int(lMSec / 1000) iMin = Int(iSec / 60) iSec = iSec - (iMin * 60) AVI_FormatTime = Format$(iMin, "00") & ":" & _ ...

Verfasst am: 19.10.2007, 11:23 Aufrufe: 1516

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: 12.07.2007, 15:18 Aufrufe: 595

Verfasst am: 31.05.2007, 18:52 Aufrufe: 669

.. zb. is das Feld von 500/600 und der gegenüberliegende punkt 600/700 daraus ein feld machen und innerhalb dieses Feldes alle 1cm (vorher in pixel umrechnen) die mausbewegen und dann mit sendkeys klick machen. nein so einen source hab ich nich Hmm..ist das hier nicht einfacher? Klicks machen: [code]Private Declare Sub mouse_event Lib "user32" _ (ByVal dwFlags As Long, ByVal dx As Long, _ ...

Verfasst am: 31.05.2007, 17:40 Aufrufe: 669

Ja klar. Du musst halt sone Art begrenzung machen mithilfe von pixel angabe... zb. is das Feld von 500/600 und der gegenüberliegende punkt 600/700 daraus ein feld machen und innerhalb dieses Feldes alle 1cm (vorher in pixel umrechnen) die mausbewegen und dann mit sendkeys klick machen. nein so einen source hab ich nich

Verfasst am: 03.05.2002, 14:39 Aufrufe: 465

Text 'Hex darf max 5 Zeichen lang sein txt_fünfzwei.Text = fünf'dient zur darstellung heißen?? Ansonsten würd ich das aber so machen: (Text1 : Eingabefeld Text2: Ausgabefeld Command1: Umrechnen) Quote:Private Sub Command1_Click() Dim ZahlHex As String, ZahlDec As Long, M As Long ZahlHex = UCase(Text1.Text) 'Hexzahl in Großbuchstaben einlesen M = 1 'Multiplikator ( 1,16,256 usw) ZahlDec = 0 'Dezimalzahl For i = Le ...