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: 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: 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: 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: 20.07.2011, 14:19 Aufrufe: 873

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

Verfasst am: 16.06.2011, 15:29 Aufrufe: 589

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 ' Abspielvorgang starten Filgraph.Run Codeende An der markierten Stelle bleibt ...

Verfasst am: 18.03.2011, 14:15 Aufrufe: 324

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) value.Add(GI.txtProjectNumber) Return value End ...

Verfasst am: 02.02.2011, 00:18 Aufrufe: 640

Top = bNr.Top nButton(buttonCounter).Width = Abs(bNr.Right - bNr.Left) nButton(buttonCounter).Height = Abs(bNr.Bottom - bNr.Top) nButton(buttonCounter).Visible = True nButton(buttonCounter).DragMode = 0 nButton(buttonCounter).Caption = "Schaltfläche" & buttonCounter buttonCounter = buttonCounter + 1 WorkspaceAktiv ...

Verfasst am: 25.01.2011, 11:33 Aufrufe: 816

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

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 If SaveFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then ...

Verfasst am: 16.12.2010, 20:52 Aufrufe: 1031

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

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 clBlock_Paint(ByVal Sender As Object, ByVal e As PaintEventArgs) Handles Me.Paint If Not (DrawArea Is Nothing) Then If Visible Then ...

Verfasst am: 14.12.2010, 12:30 Aufrufe: 1203

Verfasst am: 14.12.2010, 08:43 Aufrufe: 1203

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

Verfasst am: 07.12.2010, 23:13 Aufrufe: 1031

EventArgs) Handles Timer1.Tick Me.Invalidate() End Sub Private Sub DrawFace() ' Ziffernblatt zeichnen m_Face = New Bitmap(Me.ClientRectangle.Width, Me.ClientRectangle.Height) Dim g As Graphics = Graphics.FromImage(m_Face) Dim stifth As New Pen(Color.Black) Dim i As Integer x0 = Int(Me.ClientRectangle.Width / 2) y0 = Int(Me.Cli ...

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 Next Input #ff, sfs: zeit1 = sfs Input #ff, sfs: punkte = sfs Close ff End Sub Sub CMD1() Load Picture2(Picture2.UBound + 1) With Picture2(Picture2.UBound) .Top = Picture2(Picture2.UBound - 1).Top + .Height .Visible = True End With End Sub Sub CMD2() Load Picture4(Picture4.UBound + 1) With Picture4(Picture4.UBound) .Top ...

Verfasst am: 30.07.2010, 17:18 Aufrufe: 459

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: 968

Data dtcText Caption = "Data1" Connect = "Access 2000;" DatabaseName = "" DefaultCursorType= 0 'Standard-Cursor DefaultType = 2 'ODBC verwenden Exclusive = 0 'False Height = 315 Left = 10590 Options ...

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

Verfasst am: 29.12.2009, 19:07 Aufrufe: 1317

Verfasst am: 22.11.2009, 16:28 Aufrufe: 1804

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: 18.06.2009, 18:34 Aufrufe: 1282

Private Function make_screenshot() As Bitmap Dim iWidth As Integer = Screen.PrimaryScreen.Bounds.Width Dim iHeight As Integer = Screen.PrimaryScreen.Bounds.Height make_screenshot = New Bitmap(iWidth, iHeight)<br ...

Verfasst am: 18.06.2009, 18:01 Aufrufe: 929

Private Function make_screenshot(ByVal ctrlElement As Control) As Bitmap Dim width As Integer = ctrlElement.Width Dim heigth As Integer = ctrlElement.Height make_screenshot = New Bitmap(width, heigth) &nb ...

Verfasst am: 18.06.2009, 12:51 Aufrufe: 898

... unction 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.TwipsPerPixelX MM.ptMaxSize.y = Screen.Height ...

Verfasst am: 18.06.2009, 12:05 Aufrufe: 824

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

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: 12.11.2008, 18:24 Aufrufe: 892

Verfasst am: 18.09.2008, 15:15 Aufrufe: 1294

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

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

Verfasst am: 04.09.2008, 13:03 Aufrufe: 830

Max = Image1.Container.Height - Image1.HeightFehler!: Objekt erforderlich

Verfasst am: 03.09.2008, 18:55 Aufrufe: 830

Verfasst am: 27.08.2008, 05:41 Aufrufe: 1066

Verfasst am: 26.08.2008, 08:34 Aufrufe: 1066

@nicokBenutze die .move Eigenschaft der Objekte.Die ist schneller als wenn man .width, .height etc. benutzt.

Verfasst am: 25.08.2008, 18:59 Aufrufe: 1066

Private Sub Form_Resize()If WindowState 1 Then ListBox1.Width = Form1.Width - XXEnd Subund das gleich mit height ,oder was weiss ich Very Happy

Verfasst am: 19.08.2008, 10:20 Aufrufe: 1621

serviceContentText{color:#53534b;font-family: arial;font-size:12px;font-weight:normal;}a{color:#005fd0;font-weight:bold;font-family: arial;font-size:11px;}a:hover{color:#2cd000;font-weight:bold;font-family: arial;font-size:11px;}a#logout{font-family: verdana; color:#fffb8f; font-size: 11px; font-weight: bold; text-decoration: underline;padding-right:25px; display: block; height:18px;background: url('images/revamp2008 ...

Verfasst am: 17.08.2008, 12:09 Aufrufe: 1040

me.windowstate = vbmaximizedbzw.me.height = screen.heightme.width = screen. width

Verfasst am: 14.08.2008, 15:56 Aufrufe: 716

Verfasst am: 14.08.2008, 11:59 Aufrufe: 716

Verfasst am: 14.08.2008, 11:14 Aufrufe: 716

die txtBox nicht mit verkleinert wird.private sub form1_resizertb.width = me.width - 250rtb.height = me.height -250end subJa, sowas in der Art. Nur wird doch bei diesem Code es nur um "250" x "250" verkleinert oder ? Geht das nicht auch, das da irgendwie eine Variable reingeht, damit sich die Form mit txtBox zu allem verkleinern lässt:confused:Bisschen schwer zu erklären :pReupp:http://rapidshare.com/files/137239482/ ...

Verfasst am: 14.08.2008, 00:05 Aufrufe: 716

Verfasst am: 02.08.2008, 17:03 Aufrufe: 936

Verfasst am: 30.07.2008, 19:01 Aufrufe: 539