CHAMALEON BUTTON COM ERRO
Ola amigos eu formatei meu pc reinstalei o vb6
o chamelon boton esta dando erro, ja removi do sistema adicionei novamente o erro e este
erro
cant find project or library
codigo do chamelon
Private Sub CalcPicPos()
[ô]exit if there[ô]s no picture
If picNormal Is Nothing And picHover Is Nothing Then Exit Sub
If (Trim$(elTex) <> [Ô][Ô]) And (PicPosition <> 4) Then [ô]if there is no caption, or we have the picture as background, then we put the picture at the center of the button
Select Case PicPosition
Case 0 [ô]left
picPT.X = rc.Left - picSZ.X - 4
picPT.Y = (He - picSZ.Y) \ 2
Case 1 [ô]right
picPT.X = rc.Right + 4
picPT.Y = (He - picSZ.Y) \ 2
Case 2 [ô]top
picPT.X = (Wi - picSZ.X) \ 2
picPT.Y = rc.Top - picSZ.Y - 2
Case 3 [ô]bottom
picPT.X = (Wi - picSZ.X) \ 2
picPT.Y = rc.Bottom + 2
End Select
Else [ô]center the picture
picPT.X = (Wi - picSZ.X) \ 2
picPT.Y = (He - picSZ.Y) \ 2
End If
End Sub
da erro
o chamelon boton esta dando erro, ja removi do sistema adicionei novamente o erro e este
erro
cant find project or library
codigo do chamelon
Private Sub CalcPicPos()
[ô]exit if there[ô]s no picture
If picNormal Is Nothing And picHover Is Nothing Then Exit Sub
If (Trim$(elTex) <> [Ô][Ô]) And (PicPosition <> 4) Then [ô]if there is no caption, or we have the picture as background, then we put the picture at the center of the button
Select Case PicPosition
Case 0 [ô]left
picPT.X = rc.Left - picSZ.X - 4
picPT.Y = (He - picSZ.Y) \ 2
Case 1 [ô]right
picPT.X = rc.Right + 4
picPT.Y = (He - picSZ.Y) \ 2
Case 2 [ô]top
picPT.X = (Wi - picSZ.X) \ 2
picPT.Y = rc.Top - picSZ.Y - 2
Case 3 [ô]bottom
picPT.X = (Wi - picSZ.X) \ 2
picPT.Y = rc.Bottom + 2
End Select
Else [ô]center the picture
picPT.X = (Wi - picSZ.X) \ 2
picPT.Y = (He - picSZ.Y) \ 2
End If
End Sub
da erro
ex.. se eu criar um form e tentar adicionar o componente acontece a msm coisa
sera q pode a falta do sp6 do vb6
Colega este, button.OCX este não da bug
Ola Lancecom, muito obrigado mas o arquivo esta corrompido tem como postar novamente por favor
celsocelsoricardo@hotmail.com
celsocelsoricardo@hotmail.com
sim eu resolvi o problema da ocx. vlw LANCECOM
Tópico encerrado , respostas não são mais permitidas