Visual Basic Forum

Verfasst am: 11.05.2012, 11:10 Aufrufe: 34

Meine Frage lautet nun, ob man mithilfe von CopyMemory einen schnellen Zugriff auf die Objekt.Top Objekt.Left Objekt.Height Objekt.Width Eigenschaften von Standard- und selbst geschriebenen Steuerlementen erreichen könnte. Ich stelle es mir so vor, daß ich ein Array mit diesen Werten erstelle und sie dann mittels CopyMemory direkt im Speicher verändere, was die Sache beschleunigen dürfte. Dazu bräuchte ich a ...

Verfasst am: 02.04.2012, 13:06 Aufrufe: 148

... = 0 Länge = 0 end_counter = ende_tabelle_meisterschaften - 5 ' Daten von "Meisterschaften" in Tabelle "Fahrten" übertragen For zeile_meisterschaften_aktivitaet = 5 To ende_tabelle_meisterschaften - 1 Step 1 Counter = Counter + 1 ' Prozentsatz aktualisieren PctDone = Counter / (end_counter) Schritt = PB1.Label1.Width ...

Verfasst am: 24.09.2011, 22:56 Aufrufe: 238

ich hab eine minimap geadded, funktioniert auch alles - wenn ich eine unit bewege dann wird die alte position nicht gelöscht! wie kann ich hier dem programm sagen, es soll nur die aktuelle position zeichen - aber die alten sofort wieder löschen auser die einheit bewegt sich nicht mehr ? Public Sub drawminimap(z) tempa = mapwidth / 70 tempb = mapheight / 70 minimap.ForeColor = vbGreen minimap.

Verfasst am: 10.09.2011, 08:18 Aufrufe: 263

Verfasst am: 01.09.2011, 06:18 Aufrufe: 489

Here are a few common elements in web design layout. Header of the webpage is the first thing that one sees in a website. Most of the websites have images in the header section. These images cover the topmost width of the webpage and give an idea about the website. The header size is usually 700-800 pixels, as this the most preferred width. The header part should contain an image that defines the website in ...

Verfasst am: 20.07.2011, 14:19 Aufrufe: 874

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.TwipsPerPixelY SetCursorPos xLeft, xTop End With End Sub ich h ...

Verfasst am: 16.06.2011, 15:29 Aufrufe: 589

Fehlermeldung stehen .Left = 35 .Top = 232 .Height = 217 .Width = 295 .FullScreenMode = False .WindowStyle = 0 .Visible = True End With ' Abspielvorgang starten Filgraph.Run Codeende An der markierten Stelle bleibt das Programm mit folgender Fehlermeldung stehen: Fehlermeldung: Laufzeitfehler ' ...

Verfasst am: 18.03.2011, 14:15 Aufrufe: 325

ID = "txtProjectNumber" _ProjectNumber.MaxLength = 6 _ProjectNumber.Width = 90 _ProjectNumber.Height = 16 Return _ProjectNumber End Function End Class Public Class Template Public Function Builder() As List(Of Control) Dim GI As GeneralInformation = New GeneralInformation Dim value As List(Of Control) = New List(Of Control) ...

Verfasst am: 02.02.2011, 00:18 Aufrufe: 640

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) nButton(buttonCounter).Heig ...

Verfasst am: 25.01.2011, 11:33 Aufrufe: 817

150/" WIDTH="579" HEIGHT="200"> <param name=PORT value="2710,80"> <param name=background value="FFFF00"><param name=foregroundList value="000000"> <param name=backgroundList value="FFFF00"> <param name=suggestion value="Knuddels"> <param name=idPic value="FFFFFF"> <param name=appletID v ...

Verfasst am: 18.12.2010, 15:25 Aufrufe: 607

FileName) Dim bild_dest As New Bitmap( _ CInt(xSollBox.Text), _ CInt(ySollBox.Text)) Dim grafik_dest As Graphics = Graphics.FromImage(bild_dest) grafik_dest.DrawImage(bild, 0, 0, _ bild_dest.Width + 1, _ bild_dest.Height + 1) PictureBox1.Image = bild_dest ...

Verfasst am: 16.12.2010, 20:52 Aufrufe: 1032

Und auf das Repaint-Ereignis der Form lädst Du die Bitmap aus dem Speicher auf die Form: Public Class Form1 Dim g As Graphics Dim Buffer As Bitmap Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Buffer = New Bitmap(Width, Height, CreateGraphics) g = Graphics.FromImage(Buffer) g.DrawLine(Pens.Fuchsia, 10, ...

Verfasst am: 16.12.2010, 20:36 Aufrufe: 571

Refresh() End Set End Property 'Konstruktor Sub New(ByVal AParent As Control) If Not (AParent Is Nothing) Then Me.Parent = AParent End If FramePen = New Pen(Color.Black, 1) 'eine Standardgröße von 40x40 festlegen Me.Width = 40 Me.Height = 40 DrawArea = Me.CreateGraphics DrawOnClient = False End Sub Private Sub clB ...

Verfasst am: 14.12.2010, 12:30 Aufrufe: 1204

Verfasst am: 14.12.2010, 11:47 Aufrufe: 412

Left => picture2.left And Picture1.left + Picture1.width =< picture2.left + Picture2.width then Msgbox "Crash" end if end sub Private Form1_Keydown(byval keycode as integer) 'oder wie auch immer if keycode = vbkeyright 'Pfeil rechts wenn ich mich nicht irre then Timer1.Enabled = True end if end sub Private Form1_Keyup(byval keycode as integ ...

Verfasst am: 14.12.2010, 08:43 Aufrufe: 1204

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.12.2010, 23:13 Aufrufe: 1032

ToString ' Pens generieren Dim hour As New Pen(Color.Blue) Dim minute As New Pen(Color.Red) Dim second As New Pen(Color.Black) hour.Width = 8 minute.Width = 4 second.Width = 1 ' alte Zeiger löschen Dim pinsel As New SolidBrush(Me.BackColor) g.FillEllipse(pinsel, x0 - rs, y0 - rs, rs * 2, rs * 2) ' Zeiger zeichnen ...

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: 27.09.2010, 17:50 Aufrufe: 812

Picture If links = 17 Then links = 0 GoTo genug: genug: End Sub Private Sub Timer1_Timer() 'LOSER Picture5.SetFocus Dim tod2 As Integer For tod2 = 0 To Bod6 treffer = 0 If Picture5.Left > Picture13(tod2).Left And (Picture5.Left < Picture13(tod2).Left + Picture13(tod2).Width) And Picture5.Top > Picture13(tod2).Top And Picture5.Top < &# ...

Verfasst am: 09.08.2010, 14:43 Aufrufe: 632

boa so einfach wie screen.width / screen.twipsperpixelX ist es leider nicht weil ich nämlich genau das gleiche problem hatte ich müsste mir den code von einem alten projetk nochmal anschauen da hab ich das gemacht wenn ichs nicht vergesen mache ich das heute abend aber zu deiner frage: nein es gibt keinen fehler wenn du die form weiter über den rand hinaus schiebst... du hast da sowiso mehrere probleme du ...

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: 30.07.2010, 17:18 Aufrufe: 460

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 BLACKNESS = &H42 Private Const DSTINVERT = &H550009 Private Const MERGECOPY = &HC000CA Private Const MERGEPAINT = &HBB022 ...

Verfasst am: 23.07.2010, 19:42 Aufrufe: 608

Verfasst am: 17.04.2010, 22:46 Aufrufe: 478

Könnt ihr es an meinem Code zeigen? Mein Code: Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim pic As New Bitmap(My.Computer.Screen.Bounds.Width, My.Computer.Screen.Bounds.Height) Dim g As Graphics = Graphics.FromImage(pic) ...

Verfasst am: 24.02.2010, 20:18 Aufrufe: 635

Verfasst am: 07.01.2010, 08:49 Aufrufe: 969

... = 2 'ODBC verwenden Exclusive = 0 'False Height = 315 Left = 10590 Options = 0 ReadOnly = 0 'False RecordsetType = 1 'Dynaset RecordSource = "" Top = 7530 Visible = 0 'False Width ...

Verfasst am: 03.01.2010, 22:56 Aufrufe: 568

EventArgs) Handles Button1.Click Dim bounds As Rectangle Dim screenshot As System.Drawing.Bitmap Dim graph As Graphics bounds = Screen.PrimaryScreen.Bounds screenshot = New System.Drawing.Bitmap(bounds.Width, bounds.Height, System.Drawing.Imaging.PixelFormat.Format32bppArgb) graph = Graphics.FromImage(screenshot) graph.CopyFromScreen(bounds.X, bounds.

Verfasst am: 29.12.2009, 19:07 Aufrufe: 1317

Verfasst am: 09.12.2009, 09:48 Aufrufe: 723

hi wenn du dein label nach rechts wander lässt brauchst ja nur überprüfen ob sich label1 mit label 2 trifft... label1.left = label1.left + 100 if (label1.left + label1.width) => label2.left and (label1.left + label1.width) <= (Label2.left + Label2.Width) then Timer1.enabled = False endif vl kannst damit was anfangen lg

Verfasst am: 22.11.2009, 16:28 Aufrufe: 1805

Spieleprogrammierung mit XNA - Teil 3Willkommen zum dritten Tutorial,mir ist grad langweilig, also hab ich das dritte schon geschrieben. :DIn diesem Teil geht es um die erste Textur, die wir anzeigen wollen.Ich gehe vom Source aus Tutorial Nummer 2 aus, also bitte ladet das Projekt schonmal Wink

3.1 Neue Variablen!Mit neuen Funktionen kommen auf neue Variablen zum Einsatz. Das ist auch bei XNA so.Folgende Variablen ...

Verfasst am: 15.08.2009, 09:18 Aufrufe: 447

Es funktioniert bereits sehr gut, nur verschwinden hin und wieder die Linien ohne Fremdeinwirkung (Button muss neu geklickt werden). Hatte jemand von euch bereits ein ähnliches Problem ? Code Public Class ... Dim g As Graphics Dim pen1 As New Pen(Brushes.Black) Private Sub Button3_Click .... g = PictureBox1.CreateGraphics pen1.Width = 2.0F g.DrawLine(pen1, ...

Verfasst am: 18.06.2009, 18:34 Aufrufe: 1282

Es wird nur das Framework verwendet und keine API aufgerufen.Funktion:Zu beachten ist, dass ein Bitmap zurückgegeben wird, d.h ihr müsst das Bild selber speichern.Private Function make_screenshot() As Bitmap<br /> Dim iWidth As Integer = Screen.PrimaryScreen.Bounds.Width<br /> Dim iHeight As Integer = Scr ...

Verfasst am: 18.06.2009, 18:01 Aufrufe: 929

leicht Bilder einer Listview erstellen und ausdrucken.Funktion:Mit ctrlElement wird das Steuerelement übergeben, welches abgelichtet werden soll.Private Function make_screenshot(ByVal ctrlElement As Control) As Bitmap<br /> Dim width As Integer = ctrlElement.Width<br /> Dim heigth As Integer = ctrlElement ...

Verfasst am: 18.06.2009, 12:51 Aufrufe: 898

hWnd, GWL_WNDPROC, WinOldProc)End SubPrivate Function WindowProc(ByVal hWnd As Long, ByVal uMsg As Long, ByVal wParam As Long, ByVal lParam&) As LongDim Result As LongDim MM As MINMAXINFO If uMsg = WM_GETMINMAXINFO And Frm.WindowState = 0 Then Call CopyMemory1(MM, lParam, Len(MM)) MM.ptMaxPosition.x = 0 MM.ptMaxPosition.y = 0 MM.ptMaxSize.x = Screen.Width / Screen.TwipsPerPi ...

Verfasst am: 18.06.2009, 12:05 Aufrufe: 824

Verfasst am: 15.06.2009, 12:54 Aufrufe: 995

Thema: Types nutzenAutor: exe-cuteHier erleutere ich euch das arbeitem mit einem Type.Der Type:Private Type Test<br /> FormWidth As Long<br /> StartTime As String<br />End Type<br />Dim t As TestDieser Type beinhaltet 2 Variablen. Einen Long & einen string.Private Sub Form_Load()<br /> t.

Verfasst am: 15.06.2009, 12:16 Aufrufe: 9611

Einfach unter View die Option lvwReport wählen.Als nächstes sehen wir uns den Reiter „Spaltenköpfe“ an.Hier fügt ihr jetzt so viele Spaltenköpfe ein wir ihr braucht und gebt diesen einen Namen.Dazu stellt ihr noch für jede Spalte die Breiten und width ein, bzw. ob der Text zentriert, links- oder rechts ausgerichtet sein soll.Wenn ihr wollt könnt ihr euch noch mit den anderen Reitern wie Farbe, Schriftart usw. spielen ...

Verfasst am: 24.02.2009, 16:18 Aufrufe: 988

Dim Ratio As Double Dim H_Temp, W_Temp Dim In_Resize Private Sub Form_Load() Ratio = 1.333 End Sub Private Sub Form_Resize() If In_Resize = True Then Exit Sub 'Formhöhe darf nicht kleiner werden als 3915: If Form1.Height < 3915 Then Form1.Height = 3915 In_Resize = True 'If-Abfragen zum proportionalen Vergrößern/Verkleinern If Not W_Temp = Form1.Width Then Form1.Heigh ...

Verfasst am: 05.02.2009, 20:01 Aufrufe: 2731

Wait(Now + TimeValue("0:00:01")) 'Pw senden Ende Do While Options.wbr.ReadyState <> READYSTATE_COMPLETE DoEvents Loop btn = 4 Hide End Sub Und hier der Code für das Hauptmodul bzw das Steuermodul: Sub PreMain() Options.Height = 66 Options.Width = 112 Options.Show If Options.btn = 4 Then Call Login End ...

Verfasst am: 04.02.2009, 15:53 Aufrufe: 2731

Der Quelltext der Seite ist <DIV id=c_border> <DIV id=c_pfad>Router - Einstieg in die Konfiguration</DIV> <DIV id=c_titel>Passwort Eingabe</DIV> <DIV id=c_last> <table border="0" cellpadding="0" cellspacing="2"> <tr> <td width="100"><input type="password" class="stylepwd ...

Verfasst am: 12.11.2008, 18:24 Aufrufe: 892

Verfasst am: 18.09.2008, 15:15 Aufrufe: 1294

Top + 1000 'unten Case 40 Sp.Top = Sp.Top + 1000 If Kollision = True Then Sp.Top = Sp.Top - 1000End SelectEnd SubPublic Function Kollision() As BooleanKollision = False If Sp.Top > Ba.Top And Sp.Top < Ba.Top + Ba.Height Then If Sp.Left + Sp.Width > Ba.Left And Sp.Left + Sp.Width < Ba.Left + Ba.Width Then Kollision = True If Sp.Left > Ba.Left And Sp.Left < Ba.Left + Ba.Width Then Kollision ...

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: 17.09.2008, 17:46 Aufrufe: 1294

Verfasst am: 17.09.2008, 17:30 Aufrufe: 1294

vllt mit nem timer, interval 1 der das schnell merkteinfach mit ner if abfrageif pictureplayer.width= ' mit was ersetzen , was halt passt thenelse end ifund dan halt noch mit width und heigth oder so...

Verfasst am: 13.09.2008, 11:38 Aufrufe: 1345

Nun möchtest du diese auslesen?Das machst du dann wie folgt:In deine Form schreibst du:Visual Basic: [code]Private Sub Command1_Click() Dim F As Integer Dim Var As String Dim Trash() As String 'Erst einmal den ListView erstellen With ListView1 .GridLines = True .View = lvwReport .ColumnHeaders.Add , , "User", Int(.Width / 5) .ColumnHeaders.Add , , " ...

Verfasst am: 12.09.2008, 22:31 Aufrufe: 1345

Verfasst am: 11.09.2008, 18:45 Aufrufe: 1345

Verfasst am: 09.09.2008, 14:05 Aufrufe: 461

Verfasst am: 04.09.2008, 18:43 Aufrufe: 478

frmbla.showfrmbla.width=option.widthfrmbla.height=option.heightdenk ich...bin grad net an vb rechner