suche dringend Hilfe zwecks einem UserControl

[NewPeacemaker]

HI,

ich bin totaler anfänger in Visual Basic und habe ein Control gefunden was (fast)alles hat was ich brauch nur 2 was fehlt mir dringend,

die Stretch Funktion wie bei Images üblich, und eine Label Caption die sieht man nicht auf der Grafik,

Danke im Vorraus

cya

hier gibts das User Control
SkinControl


und das mache ich

MCE Email Plugin

 

[Bambusbieger]

also ich hab das mit dem stretch schon hingekriegt (ich weiß allerdings nich wie das ist, wenn du changemask auf false setzt) Aber ich versteh nich ganz, was du mit dem label meinst

 

[NewPeacemaker]

stretch bei dem SkinControl *hechel*
erzähle mehr,

das Label soll die Caption sein vom Button weil es mehrere Buttons sind und 20 BMP Buttons sind eine menge auch als Res file,

cya und thx fürs antworten

 

[Bambusbieger]

Soll die caption einfach immer Zentriert sein oder was. Man könnte auch einfach n label machen, auf dass man dann zugreifen kann. dann könnte man so text und font ändern.

Wenn ich dir das veränderte Control schicken soll musst du mir deine e-mail geben (kannste mir ja als private message schicken, enn du nich willst, dass die jeder sieht)

 

[Bambusbieger]

Ich hab jetzt auch ne caption gemacht aber die wird nich mitskaliert,wenn ma das control stretcht

 

[NewPeacemaker]

nice endlich habe ich jemanden gefunden der das control auch nutzt,

hier meine email newpeacemaker@gmx.de

das mit der Caption, habe ich label gesagt weil ich nichts anderes kenne, wenn man es direkt mit ins Control bekommt noch besser *G*

aber schau dir den link von mir an, mit dem Text auf den Buttons, der soll immer sichtbar sein, egal welche Grafik gerade dahinter ist,

Fettes thx fürs schicken,

cya

P.S. hälst du das für möglich mit VB,

http://home.tiscali.de/peacemaker/emaillesen3.jpg

 

[NewPeacemaker]

@Bambusbieger



habe mir dein beispiel code angesehn,

ich weiß karnicht wie ich dir Danken soll, ich habe in zich Visual Basic Boards gepostet, und nit mal eine Antwort kam da,

also echt geiles Board hier ab jetzt ist das meine Startseite,

cya

und nochmal fettes THX

jetzt fehlt nur noch der Stretch von der Caption

hier den code den ich benutze zum stretchen aller Conrols vielleicht hift es weiter

Form

Option Explicit 
Dim arrControls() As ControlInfo    'Benutzerdef. Datentyp 
Dim lngOldWidth As Long, lngOldHeight As Long 

Private Sub Form_Load() 
Dim lngCounter As Long 
Dim ctrl As Control 

'Einige Controls lassen das Auslesen nicht zu, deshalb "On Error" 
On Error Resume Next 
lngCounter = 0 
For Each ctrl In Me.Controls    'Jedes Control der Form wird durchlaufen 
    ReDim Preserve arrControls(lngCounter) As ControlInfo 
    'Höchster Indes des Array wird mit den Parametern gefüllt 
    With arrControls(lngCounter) 
        .ControlName = ctrl.Name 
        .Left = ctrl.Left 
        .Top = ctrl.Top 
        .Height = ctrl.Height 
        .Width = ctrl.Width 
        .FontSize = ctrl.Font.Size 
    End With 
    'Zähler wird erhöht 
    lngCounter = lngCounter + 1 
Next ctrl 

'Diese Werte dienen als Grundlage für die Berechnung der Scaling-Faktoren 
lngOldWidth = Me.Width: lngOldHeight = Me.Height 
End Sub 

Private Sub Form_Resize() 
Dim i As Long 
Dim sngXFactor As Single, sngYFactor As Single, sngFontFactor As Single 
'Faktor in x- und y-Richtung 
sngXFactor = Me.Width / lngOldWidth 
sngYFactor = Me.Height / lngOldHeight 

'Faktor für die Schrift wird extra ermittelt 
If sngXFactor > sngYFactor Then sngFontFactor = sngYFactor Else sngFontFactor = sngXFactor 

'Es existieren einige Ausnahmen, wo die Werte nicht angepasst werden können 
On Error Resume Next 
For i = 0 To UBound(arrControls) 
'Alle Werte werden entsprechend des berechneten Faktors skaliert 
    With Me.Controls(arrControls(i).ControlName) 
        .Left = sngXFactor * arrControls(i).Left 
        .Top = sngYFactor * arrControls(i).Top 
        .Width = sngXFactor * arrControls(i).Width 
        .Height = sngYFactor * arrControls(i).Height 
        .FontSize = Int(sngFontFactor * arrControls(i).FontSize) 
    End With 
Next i 

End Sub

das Modul

Option Explicit 

'Benutzerdefinierter Datentyp 
Type ControlInfo 
    Left As Long 
    Top As Long 
    Height As Long 
    Width As Long 
    ControlName As String 
    FontSize As Single 
End Type

wenn das dann hinhaut mit dem Caption Stretch,dann hat sich auch dieses problem gelöst!

http://home.tiscali.de/peacemaker/emaillesen3.jpg

 

[Bambusbieger]

Müsste eingentlich schon klappen, wenn du statt .FontSize .Font.Size schreibst

 

[NewPeacemaker]

klappt alles bestens danke,

kann man die Caption Links ausrichten,

so sieht es jetzt aus, [KLICK] dank dir habe ich jetzt nur noch 2 Button Grafiken im Res file und kann Strings verwenden,

cya

 

[Bambusbieger]

Ich könnte natürlich noch ne alignment eigenschaft einbauen.