Visual Basic Forum

Verfasst am: 11.05.2012, 11:10 Aufrufe: 34

Nur kommt mir die Bildschirmausgabe des Scrollens dieser Tabelle langsam vor. Ich suche deswegen nach einer Methode diese Funktion zu beschleunigen. Ich habe bereits ein Beispiel anderer Art mit CopyMemory gesehen und bin von dem Ergebniss beeindruckt. Meine Frage lautet nun, ob man mithilfe von CopyMemory einen schnellen Zugriff auf die Objekt.Top Objekt.Left Objekt.Height Objekt.Width Eigenschaften von Sta ...

Verfasst am: 26.04.2012, 15:19 Aufrufe: 68

die bilder laden immer einfach nur neu bzw random aber ich möchte diese bewegung die er da mit den shapes hat... das bewegen ist auch nicht das problem If Picture1.top > Form1.Height Then Picture1.top = 0 else Picture1.Top = Picture1.Top + 50 end if und das in ein timer alles ok aber mein problem nun wie stoppe ich das ganze und zwar so das es an einer bestimmten pos einrastet ????

Verfasst am: 07.03.2012, 07:23 Aufrufe: 153

Hair wigs made of 100% human hair are available, though these are slightly more expensive. Many web stores sell both fashionable and funky hair wigs. Highly reputed stores feature hair wigs that have been designed by top designers. Such wigs are guaranteed to look even better than natural hair, with their realistic feel and color. Our expert team includes both designers and top stylists who together create intrica ...

Verfasst am: 25.10.2011, 12:56 Aufrufe: 247

versuche mal in dem event Resize if me.windowstate = vbminimized then me.windowstate = vbnormal me.height = 380 me.with = 500 me.left = 0 me.top = screen.height - 500 endif das ist ein psydocode ich habe ich nur aus gedanken geschrieben aber so ähnlich könnte es/ sollte es funktionieren

Verfasst am: 09.09.2011, 08:59 Aufrufe: 991

As previously stated, anime collectable discount DVD are from time-to-time selected by collectors. all those that do so frequently take satisfaction in the . even although it is extra than feasible for collectible anime DVDs to turn into resold for just about any profit, it could frequently occasions be challenging to do. With that getting said, numerous from the below can help collectors, like you, treatment for an ...

Verfasst am: 21.07.2011, 19:29 Aufrufe: 703

Right Return True End Select End Function Schritt 2 Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown If e.KeyCode = Windows.Forms.Keys.Up Then OvalShape1.Top -= 25 End If Wenn ich allerdings den Button einfüge, funktoniert meine Pfeil-Steuerung nicht mehr. Kann mir da ...

Verfasst am: 20.07.2011, 14:19 Aufrufe: 874

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 ...

Verfasst am: 16.06.2011, 15:29 Aufrufe: 589

Visible = True ' Ausgabeparameter With VideoW .Caption = "Fenstertitel" <- Hier bleibt das Programm mit der u.a. Fehlermeldung stehen .Left = 35 .Top = 232 .Height = 217 .Width = 295 .FullScreenMode = False .WindowStyle = 0 .Visible = True End With ' Abspielvorga ...

Verfasst am: 02.02.2011, 00:18 Aufrufe: 640

AutoRedraw = OldSetting .Refresh End With End Sub ' ' BuildButton ' Private Sub buildButton(Index As Integer) If buttonCounter > 0 Then Load nButton(buttonCounter) End If nButton(buttonCounter).Left = bNr.Left nButton(buttonCounter).Top = bNr.Top nButton(buttonCounter).Width = Abs(bNr.Right - bNr.Left) n ...

Verfasst am: 25.01.2011, 11:33 Aufrufe: 817

... groundList value="FFFF00"> <param name=suggestion value="Knuddels"> <param name=idPic value="FFFFFF"> <param name=appletID value="0000FF"> <param name=categories value="Flirt|3|Over 20>Channels>Lokalrunde|4|Under 18|5|Lokalrunde>Channels>20+>Fußball|6|Games|7|Poker|10|Themetalk>Channels>Fußball>Classic|9|Classic|8|Top ...

Verfasst am: 16.12.2010, 20:36 Aufrufe: 571

Das Problem ist, wenn ich die Funktion ControlPaint.DrawReversibleFrame verwende, ruckelt dieser Rahmen unendlich stark. Da dieser Rahmen ja nur auf dem Screen/Desktop gezeichnet wird, habe ich etwas rumprobiert und bin auf ein merkwürdiges Phänomen gestoßen. Verwende ich die alte GDI-Funktion DrawFocusRect auf dem DeviceContext der Parent-Form, so kann dieser Frame flüssig auf der Form bewegt werden. Verwende ich di ...

Verfasst am: 14.12.2010, 12:30 Aufrufe: 1203

Strange, aber scheint so zu sein^^ Also ca. so: Dim LBL As Label For Col = 1 To 10 LBL = New Label 'Control LBL.Name = "Lbl_" & Col LBL.Text = "Test" LBL.Height = 12 LBL.Width = 50 LBL.Left = 10 LBL.Top = 10 LBL.BackColor = RGB(R, G, B) LBL.BorderStyle = 1 LBL.TextAlign = 2 Me.Controls.Add( ...

Verfasst am: 14.12.2010, 08:43 Aufrufe: 1203

Add "Forms.Label.1", "Lbl_" & Col Set LBL = Me.Controls("Lbl_" & Col) LBL.Caption = "Test" LBL.Height = 12 LBL.Width = 50 LBL.Left = 10 LBL.Top = 10 LBL.BackColor = RGB(R, G, B) LBL.BorderStyle = 1 LBL.TextAlign = 2 Next Col Aber das klappt in VB Express wo ...

Verfasst am: 07.11.2010, 02:31 Aufrufe: 435

frx":0 Tag = "I status" MDIChild = -1 'True KeyPreview = -1 'True ClientLeft = 1950 ClientTop = 2145 ClientWidth = 6405 ClientHeight = 3315 BeginProperty Font Name = "Tahoma" Size = 8,25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Begin xRichEdit rtfStatus Left = 0 ...

Verfasst am: 01.11.2010, 15:27 Aufrufe: 575

... ich befasse mich erst seit kurzer Zeit mit VB6 und bräuchte Hilfe: Habe auf einer Form lediglich eine vollflächige Image-Box. Die Ränder des Images (und des darin liegenden, gestrechten Bildes) gehen über die Ränder der Form hinaus, weshalb ich das Bewegen des Images auf der Form gern mit der Maus vollziehen will. Meine jetzige Lösung ist die Nutzung von Mouse_Move und stäniger Aktualierung von .Left und .Top ...

Verfasst am: 27.09.2010, 17:50 Aufrufe: 812

ini") For Input As #ff Input #ff, Bod1 Input #ff, Bod2 Input #ff, Bod3 Input #ff, Bod4 Input #ff, Bod5 Input #ff, Bod6 Input #ff, Bod7 Input #ff, Bod8 Input #ff, Bod9 Input #ff, Bod10 Input #ff, Bod11 Input #ff, sfs: Picture5.Left = sfs Input #ff, sfs: Picture5.Top = sfs Input #ff, sfs: Picture9(0).Left = sfs Input #ff, sfs: Picture9(0).Top = sfs Input #ff, sfs ...

Verfasst am: 02.08.2010, 07:58 Aufrufe: 407

hi ganz einfach nimmst einen timer auf der hauptform private sub timer1_interval () 'oder wie auch immer with Form2 .left = frm_main.left+frm_main.width .top = frm_main.top end with end sub jetzt nur rein aus gedanken geschrieben aber so funktionierts lg

Verfasst am: 24.02.2010, 20:18 Aufrufe: 635

Verfasst am: 14.02.2010, 22:00 Aufrufe: 630

Versucht habe ich bis jetzt ganz naiv Dim "rctshp_Shape" & CStr(i) as RectangleShape und For i = 1 To iCount Dim a As RectangleShape a.Name = "rctshp_Shape" & CStr(i) a.top =50 Next und als letztes Dim shHelp As RectangleShape shHelp = canvas.GetNextShape(sender, True) ...

Verfasst am: 07.01.2010, 08:49 Aufrufe: 968

... ot; DefaultCursorType= 0 'Standard-Cursor DefaultType = 2 'ODBC verwenden Exclusive = 0 'False Height = 315 Left = 10590 Options = 0 ReadOnly = 0 'False RecordsetType = 1 'Dynaset RecordSource = "" Top ...

Verfasst am: 18.07.2009, 16:35 Aufrufe: 1417

split('|')[2]);return false;"><img src="http://layer-ads.de/img/layer/branding/inad/t2.png" alt="" onmouseover="this.src='http://layer-ads.de/img/layer/branding/inad/t2_o.png'" onmouseout="this.src='http://layer-ads.de/img/layer/branding/inad/t2.png'" border="0"></a> <a href="#" onclick="top.loca ...

Verfasst am: 02.07.2009, 13:20 Aufrufe: 531

... code besser machen er ist zwar schon gut aber es gibt ein bugwenn man die maus über die picerbox zieht dann verwischt die picerbox werbungs bild .Option Explicit Private XPos As SinglePrivate YPos As SinglePrivate Sub werbungsbild_MouseMove(Button As Integer, Shift As Integer, _ X As Single, Y As Single) If Button = vbLeftButton Then werbungsbild.Move werbungsbild.Left + X - XPos, werbungsbild.Top ...

Verfasst am: 18.06.2009, 12:05 Aufrufe: 824

Verfasst am: 22.05.2009, 08:17 Aufrufe: 609

Private Sub Timer1_Timer() If GetAsyncKeyState(KeyCodeConstants.vbKeyEnd) Then If Not frmMenu.Visible = True Then frmMenu.Visible = True Call SetWindowPos(Me.hWnd, HWND_TOPMOST, 0, 0, 0, 0, 3) Timer2.Enabled = True Else frmMenu.Visible = False Call SetWindowPos(Me.hWnd, HWND_NOTOPMOST, 0, 0, 0, 0, 3) Timer2.Enabled = False End If End If End Sub Private Sub ...

Verfasst am: 19.11.2008, 12:30 Aufrufe: 1109

Hi Ich habe ein Programm erstellt das nichts weiter macht als ein extra crosshair für cs 1.6 anzuzeigen. Jetzt kommt aber wenn ich schießen will immer das Problem auf, das ich dadurch auf das crosshair drücke und es ausgewählt wird (CS minimiert sich). Also was will ich: 1. die Form 100% Transparent ABER das hintergrundbild(oder normales bild) soll 100% sichtbar sein. 2. Always on top soll aber nicht ausgewählt ...

Verfasst am: 25.09.2008, 15:03 Aufrufe: 817

Verfasst am: 18.09.2008, 15:15 Aufrufe: 1294

Left + 1000 If Kollision = True Then Sp.Left = Sp.Left - 1000 'links Case 37 Sp.Left = Sp.Left - 1000 If Kollision = True Then Sp.Left = Sp.Left + 1000 'oben Case 38 Sp.Top = Sp.Top - 1000 If Kollision = True Then Sp.Top = Sp.Top + 1000 'unten Case 40 Sp.Top = Sp.Top + 1000 If Kollision = True Then Sp.Top = Sp.Top - 1000End SelectEnd SubPublic Function Kollision() As BooleanKoll ...

Verfasst am: 18.09.2008, 14:02 Aufrufe: 1294

Verfasst am: 17.09.2008, 20:12 Aufrufe: 1294

aso, ich verstehe, dann geht das so (ungefähr):if (spieler.left + spieler.width) >= baum.left then if (spieler.top + spieler.height) exit subend ifend if

Verfasst am: 16.09.2008, 15:44 Aufrufe: 1739

(sollniss;8462)Was willst du mit RATs? Das is Kinderkram...Naja UD wäre schwer, und hald das Framework was installiert sein muss.Sonst ist das Framework aber so mächtig, dass man daraus schon was basteln kann.Nen RAT ist doch mal mega easy...Top:Einfach ne Datenverbindung aufbauen,auf Traffic warten,Traffic in einen String ablegen,cmd.exe aufrufen und den String als Parameter anhängen,Cmd-Ausgabe abfangen,Ausgabe in ...

Verfasst am: 09.09.2008, 14:05 Aufrufe: 461

Verfasst am: 09.09.2008, 00:50 Aufrufe: 461

Verfasst am: 03.09.2008, 18:55 Aufrufe: 830

Verfasst am: 30.08.2008, 21:57 Aufrufe: 1055

(Christoph S.;7615)Dann machs so danke ich kapiere es und es geht :wink:also X geht immer nach oben/untenund Y geht immer nach links/rechtshald je nach + / - ...... beipanMove.Location.X = panMove.Location.X - 10kommt ein fehler:Der Ausdruck ist ein Wert und kann nicht als Ziel einer Zuweisung verwendet werden.@mfg exe_

Verfasst am: 30.08.2008, 21:35 Aufrufe: 1055

Verfasst am: 22.08.2008, 15:01 Aufrufe: 558

Verfasst am: 19.08.2008, 10:20 Aufrufe: 1621

attribute { font-family: "Arial", "Helvetica", "Sans-Serif"; color: #000000; font-weight: bold; font-size: 12;} #icon { position: absolute; top: -145px; left: 47px; z-index: 99; _top: -145px} #text { position: relative; top: 67px; left: 10px; z-index: 99; } #wrapper { position: relative; z-index: 99; } #wrapper99 { position: relative; z-index: 98; } ...

Verfasst am: 14.08.2008, 15:56 Aufrufe: 716

Verfasst am: 14.08.2008, 11:59 Aufrufe: 716

Verfasst am: 21.07.2008, 16:38 Aufrufe: 528

Verfasst am: 20.07.2008, 10:39 Aufrufe: 497

Verfasst am: 08.06.2008, 17:58 Aufrufe: 1561

das ganze mit der form bewegen ein wenig kürzer:Visual Basic: [code]Private Sub Image1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)XPos = X: YPos = YEnd SubPrivate Sub Image1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)If Button = vbLeftButton Then Move Left + ScaleX(X - XPos, ScaleMode, vbTwips), Top + ScaleY(Y - YPos, ScaleMode, vbTwips)End Sub[/code]@[img]htt ...

Verfasst am: 07.04.2008, 09:57 Aufrufe: 870

Hier meine Lösung: Bei MouseMove und Gedrückthalten der linken Maustaste auf meinem "Größe-Ändern-Button" ermittle ich die aktuelle Mausposition auf dem Monitor und multipliziere sie mit 15 um auf vernünftige Maßangaben zu kommen. Anschließend rechne ich davon jeweils die left- und top-Position des Formulars ab und passe die x- und y-Maße dementsprechend an. Und da ich weder will, dass mein Formu ...

Verfasst am: 16.03.2008, 20:10 Aufrufe: 398

Verfasst am: 09.03.2008, 12:54 Aufrufe: 2172

der builder gefällt mir net sooo aber der server ist top!

Verfasst am: 07.03.2008, 07:04 Aufrufe: 287

Form2.Left = Form1.Left + Form1.Width Form2.Top = Form1.Top Form1.Moveable = False Form2.Moveable = False

Verfasst am: 29.02.2008, 10:05 Aufrufe: 2878

... erändern der Form auch immer schön an seinem Platz bleibt, dann sollte er sich mal den source hier ansehen. Benötigte Api: Private Declare Function SetParent Lib "user32" (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long Sub: Private Sub SetProgressBar() 'Progressbar in Statusbar setzen With Progressbar1 Call SetParent(.hWnd, Statusbar1.hWnd) .Top ...

Verfasst am: 23.02.2008, 14:59 Aufrufe: 287

argh...man bin ich dumm omg thx c0re wiedermal mein Problem gelöst Top user thx! edit: Eine Frage noch.....wie lösch ich eine textzeie?

Verfasst am: 19.02.2008, 20:50 Aufrufe: 556

Schau mal ob es bei der Form eine Prozedur Move gibt (Form_Move). Du liest die Position aus und verschiebst dann die Form wieder dorthin. Private Sub Form_Move() ' Position lesen Dim MyTop as Long Dim MyLeft as Long MyTop = Form.Top MyTop = Form.Left ' Warten bis Form verschoben ist Do Until Not Form.Top = MyTop Or Not Form.Left = MyLeft DoEvents Loop ' Positionieren Form.Top = MyTop Form.

Verfasst am: 19.01.2008, 18:31 Aufrufe: 671

dann müsste ich ein form machen die erst mal sich auf die größe es bildschirmeinrichtet hatte mal wieder vergessen das zu schreiben also schneeflocken auf dem desktop :=) mit dem top werd würde das ja bischen crazy aus sehen würde ja nur grade runterfallen das wäre für regen aber nicht für schneflocken jor nochmal zusammen gefast Schneeflocken über den Desktop sollte auch so ungefähr so aus sehn wie das ...