D
Deleted member 103
Guest
Hallo,
ich habe eine kleine Routine erstellt mit dem man ein Label transparent machen kann.
Ich hoffe damit jemanden geholfen zu haben.
Ciao,
Filippo
ich habe eine kleine Routine erstellt mit dem man ein Label transparent machen kann.
HTML:
Sub App_Start
Form1.Show
SetTransparent("label1","Form1")
SetTransparent("label2","Form1")
End Sub
Sub SetTransparent(LabelName, frmName)
Control(LabelName).visible = False
x=Control(LabelName).left
y=Control(LabelName).top
w=Control(LabelName).Width
h=Control(LabelName).Height
str=Control(LabelName).Text
fs=Control(LabelName).FontSize
fc=Control(LabelName).FontColor
Control(frmName).DrawString(str,fs,x,y,x+w,y+h,fc)
End Sub
Ich hoffe damit jemanden geholfen zu haben.
Ciao,
Filippo