.txtTColor.ForeColor = "&H" & txtTColor.Text & "&"
.txtTColor.ForeColor = "&H" & .txtTColor.Text & "&"
.txtTColor.ForeColor = Val("&H" & txtTColor.Text & "&")
ca ne fonctionne pas., sans autre précision, alors que ton code, tel qu'écrit, ne peut que dénoncer une erreur (dont tu ne dis pas un mot !)
Private Sub cmdApply_Click() On Error Resume Next ' <<<==== tres mauvaise habitude ! Call mdlGUI.customColor End Sub
Public Function customColor() As String
Public Sub customColor() As String
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionPublic Function customColor() As Long With frmGUI .txtTColor.ForeColor = Val("&H" & txtTColor.Text & "&") .txtLColor.ForeColor = Val("&H" & txtTColor.Text & "&") .txtFColor.ForeColor = Val("&H" & txtTColor.Text & "&") .txtCColor.ForeColor = Val("&H" & txtTColor.Text & "&") .txtBanner.ForeColor = Val("&H" & txtTColor.Text & "&") .txtTransparency.ForeColor = Val("&H" & txtTColor.Text & "&") .Label1.ForeColor = Val("&H" & txtLColor.Text & "&") .Label2.ForeColor = Val("&H" & txtLColor.Text & "&") .Label3.ForeColor = Val("&H" & txtLColor.Text & "&") .Label4.ForeColor = Val("&H" & txtLColor.Text & "&") .Label7.ForeColor = Val("&H" & txtLColor.Text & "&") .Frame1.ForeColor = Val("&H" & txtFColor.Text & "&") .Frame2.ForeColor = Val("&H" & txtFColor.Text & "&") .Frame3.ForeColor = Val("&H" & txtFColor.Text & "&") .chkColor.ForeColor = Val("&H" & txtCColor.Text & "&") .chkBanner.ForeColor = Val("&H" & txtCColor.Text & "&") .chkTransparency.ForeColor = Val("&H" & txtCColor.Text & "&") End With With frmMain .txtIP.ForeColor = Val("&H" & frmGUI.txtTColor.Text & "&") .txtPort.ForeColor = Val("&H" & frmGUI.txtTColor.Text & "&") .txtHost.ForeColor = Val("&H" & frmGUI.txtTColor.Text & "&") .txtNews.ForeColor = Val("&H" & frmGUI.txtTColor.Text & "&") .txtLogs.ForeColor = Val("&H" & frmGUI.txtTColor.Text & "&") .optClient.ForeColor = Val("&H" & frmGUI.txtTColor.Text & "&") .optServer.ForeColor = Val("&H" & frmGUI.txtTColor.Text & "&") .txtSend.ForeColor = Val("&H" & frmGUI.txtTColor.Text & "&") .txtChr.ForeColor = Val("&H" & frmGUI.txtTColor.Text & "&") .Label2.ForeColor = Val("&H" & frmGUI.txtLColor.Text & "&") .Label3.ForeColor = Val("&H" & frmGUI.txtLColor.Text & "&") .Label4.ForeColor = Val("&H" & frmGUI.txtLColor.Text & "&") .Label5.ForeColor = Val("&H" & frmGUI.txtLColor.Text & "&") .Label6.ForeColor = Val("&H" & frmGUI.txtLColor.Text & "&") .lblherp.ForeColor = Val("&H" & frmGUI.txtLColor.Text & "&") .Label9.ForeColor = Val("&H" & frmGUI.txtLColor.Text & "&") .Label10.ForeColor = Val("&H" & frmGUI.txtLColor.Text & "&") .Frame1.ForeColor = Val("&H" & frmGUI.txtFColor.Text & "&") .Frame2.ForeColor = Val("&H" & frmGUI.txtFColor.Text & "&") .Frame3.ForeColor = Val("&H" & frmGUI.txtFColor.Text & "&") .Frame4.ForeColor = Val("&H" & frmGUI.txtFColor.Text & "&") .Frame14.ForeColor = Val("&H" & frmGUI.txtFColor.Text & "&") .Frame11.ForeColor = Val("&H" & frmGUI.txtFColor.Text & "&") .Frame7.ForeColor = Val("&H" & frmGUI.txtFColor.Text & "&") .chkLoop.ForeColor = Val("&H" & frmGUI.txtCColor.Text & "&") .chkLook.ForeColor = Val("&H" & frmGUI.txtCColor.Text & "&") .chkDance.ForeColor = Val("&H" & frmGUI.txtCColor.Text & "&") .chkEffects.ForeColor = Val("&H" & frmGUI.txtCColor.Text & "&") .chkWalk.ForeColor = Val("&H" & frmGUI.txtCColor.Text & "&") .chkBubble.ForeColor = Val("&H" & frmGUI.txtCColor.Text & "&") .chkDisco.ForeColor = Val("&H" & frmGUI.txtCColor.Text & "&") .chkBypassKick.ForeColor = Val("&H" & frmGUI.txtCColor.Text & "&") End With End Function Public Function customTransparency() As String ' à venir. End Function Public Function customBanner() As String Set frmMain.imgBanner.Picture = LoadPicture(".\banners" & frmGUI.txtBanner.Text) End Function
Private Sub cmdApply_Click() If chkColor.Value = True Then Call mdlGUI.customColor End If If chkBanner.Value = True Then Call mdlGUI.customBanner End If If chkTransparency.Value = True Then Call mdlGUI.customTransparency End If End Sub
run-time error '424' objet required
.txtTColor.ForeColor = Val("&H" & txtTColor.Text & "&") ...