Rahmen in VB mit CreateControl

[Clevemayer]

Hallo und guten morgen erstmal...

folgendes Problem, kann mir wer bitte sagen, wie ich über VB mit Createcontrol Boxen mit Rahmen erzeugen kann? also der befehl sieht ca so aus

Dim ctlObj As Control

For i = 0 To 7

Set ctlObj = CreateReportControl("Bericht1", acLabel, , , , TW(2 + i), TW(1), TW(1), TW(1))

ctlObj.Caption = "Test" & Format(i + 1, "00")

das heisst ich erzeuge 8 boxen die mit 01 02 uws nummeriert sind bzw den text test 01 test 02 usw enthalten... wie bekomm ich jetzt über vb einen rahmen drumm? wär sehr nett...

ach ja es handelt sich wie man ja bestimmt selbst sehen kann um access (2000)

[Maulwurf_der_Schlaue]

Hallo,

so kannst du Rahmenart, -farbe & -breite einstellen.

ctlObj.Properties("Rahmenart") = 1 ' Durchgezogen

ctlObj.Properties("Rahmenfarbe") = vbYellow ' Gelb

ctlObj.Properties("Rahmenbreite") = 2 ' 5 pt

[Clevemayer]

@Maulwurf

Set ctlObj = CreateReportControl("Bericht1", acLabel, , , , TW(2 + i), TW(1), TW(1), TW(1))

ctlObj.Caption = "Test" & Format(i + 1, "00")

ctlObj.Properties("Rahmenart") = 1

Sry bin in VB überhaupt nicht bewandert... wäre das im quelltext so richig? och moment mir fällt ja die microsoft hilfe ein... ich schau ma nach:upps

[Clevemayer]

@maulwurfe... jau danke

hat funktioniert... du hast en döner frei... wenn de mal im saarland bist sach ich meinem dad das de einen um sonst krichst:D oh ja mom bevor ich ärger bekomme das ich eine undeutliche artikulationsweise hätte...

ich danke dir vielmals für deine Hilfe, es hat funktioniert. Du hasst einen Gratisdöner bei mir gut, solltest du mal das Saarland mit deiner Anwesenheit beehren erhälst du einen Döner von meinem Vater um sonst

[Maulwurf_der_Schlaue]

Hi,

keine Ursache, werde mir das mit dem Döner merken.. und wenn ich komm und bekomme keinen dann gibt es Stunk oder besser "eins auf die Mütze"