Deklaration: Declare Function CreateHatchBrush Lib "gdi32.dll" ( _ ByVal nIndex As Long, _ ByVal crColor As Long) As Long Beschreibung: Parameter:
nIndex Konstanten: ' Diagonal von linksunten nach rechtsoben (/) Const HS_BDIAGONAL = 3 ' Kreuz (+) Const HS_CROSS = 4 ' Diagonales Kreuz (x) Const HS_DIAGCROSS = 5 ' Diagonal von rechtunten nach linksoben (\) Const HS_FDIAGONAL = 2 ' Horizontal (-) Const HS_HORIZONTAL = 0 ' Vertikal (|) Const HS_VERTICAL = 1 Rückgabewert: Beispiel: Private Declare Function CreateHatchBrush Lib "gdi32" ( _ ByVal nIndex As Long, _ ByVal crColor As Long) As Long Private Declare Function GetBrushOrgEx Lib "gdi32" ( _ ByVal hDC As Long, _ lpPoint As POINTAPI) As Long Private Declare Function SetBrushOrgEx Lib "gdi32" ( _ ByVal hDC As Long, _ ByVal nXOrg As Long, _ ByVal nYOrg As Long, _ lppt As POINTAPI) As Long Private Declare Function SelectObject Lib "gdi32" ( _ ByVal hDC As Long, _ ByVal hObject As Long) As Long Private Declare Function Rectangle Lib "gdi32" ( _ ByVal hDC As Long, _ ByVal X1 As Long, _ ByVal Y1 As Long, _ ByVal X2 As Long, _ ByVal Y2 As Long) As Long Private Declare Function DeleteObject Lib "gdi32" ( _ ByVal hObject As Long) As Long ' Diagonal von linksunten nach rechtsoben (/) Private Const HS_BDIAGONAL = 3 ' Kreuz (+) Private Const HS_CROSS = 4 ' Diagonales Kreuz (x) Private Const HS_DIAGCROSS = 5 ' Diagonal von rechtunten nach linksoben (\) Private Const HS_FDIAGONAL = 2 ' Horizontal (-) Private Const HS_HORIZONTAL = 0 ' Vertikal (|) Private Const HS_VERTICAL = 1 Private Type POINTAPI x As Long y As Long End Type Private RetVal As Long, hBrushNew As Long, hBrushOld As Long Private OldOrginPt As POINTAPI, NewOrginPt As POINTAPI ' Lädt die neuen Brush-Eigenschaften und speichert die alten ' in Variable. ' Die AutoReDraw-Eigenschaft muss False sein!!! Private Sub Form_Load() Me.ScaleMode = vbPixels ' Ersteinmal fragen wir den aktuellen "Orgin-Punkt" ab, ' den wir am Ende wiederherstellen müssen RetVal = GetBrushOrgEx(Me.hDC, OldOrginPt) ' Danach setzen wir den neuen "Orign-Punkt" With NewOrginPt .x = 4 .y = 4 RetVal = SetBrushOrgEx(Me.hDC, .x, .y, NewOrginPt) End With ' Dann erstellen wir uns einen neuen Brush in Blau hBrushNew = CreateHatchBrush(HS_DIAGCROSS, vbBlue) ' Nun weisen wir den neuen Brush dem Fernster zu ' und erhalten dabei den "Alten" hBrushOld = SelectObject(Me.hDC, hBrushNew) End Sub ' Zeichnet den neuen Brush innerhalb eines Rechteckes Private Sub Form_Paint() ' Forminhalt löschen Me.Cls ' Weil beim Maximieren und Minimieren die From den alten ' Brush immer wiederherstellt, müssen wir ihn jedesmal ' erneut zuweisen, um sicher zu stellen, dass der ' gewünschte Brush auch das Rechteck ausfüllt SelectObject Me.hDC, hBrushNew ' Nun zeichnen wir ein Rechteck in der Mitte der Form RetVal = Rectangle(Me.hDC, Me.ScaleWidth / 3, _ Me.ScaleHeight / 3, _ Me.ScaleWidth / 3 * 2, Me.ScaleHeight / 3 * 2) End Sub ' Erzwingt, dass beim Maximieren das Form_Paint Ereignis ' ausgelöst wird Private Sub Form_Resize() If Me.WindowState = vbMaximized Then Me.Refresh End If End Sub ' Stellt den Orginalbrush wieder her Private Sub Form_QueryUnload(Cancel As Integer, _ UnloadMode As Integer) ' Hier stellen wir den alten Brush und dessen ' "Orginpunkt" wieder her DeleteObject SelectObject(Me.hDC, hBrushOld) With OldOrginPt RetVal = SetBrushOrgEx(Me.hDC, .x, .y, OldOrginPt) End With End Sub Diese Seite wurde bereits 8.678 mal aufgerufen. |
Neu! sevCommand 4.0 Professionelle Schaltflächen im modernen Design! Mit nur wenigen Mausklicks statten auch Sie Ihre Anwendungen ab sofort mit grafischen Schaltflächen im modernen Look & Feel aus (WinXP, Office, Vista oder auch Windows 8), inkl. große Symbolbibliothek. Buchempfehlung Tipp des Monats Mai 2024 Hermann Röttger Wochentage eines Datumsbereichs ermitteln Wochentage eines Datumsbereichs ermitteln, optional mit Feiertagsberechnung Access-Tools Vol.1 Über 400 MByte Inhalt Mehr als 250 Access-Beispiele, 25 Add-Ins und ActiveX-Komponenten, 16 VB-Projekt inkl. Source, mehr als 320 Tipps & Tricks für Access und VB |
||||||||||||||
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein. |