PROPRIEDADE LET
Marcelo, eu acho que não é possÃvel criar uma propriedade de um tipo privado... pelo menos, eu não consegui
Privado sei que não é possivel criar, mas lendo todo tópico, percebi que ele está tentando mudar varias propriedades por uma type, se for isso ele tá errado.
Se for isso, eu peço desculpas pelas minhas respostas, pois entendi que ele queria criar uma propriedade assim...
Citação:ASHKATCHUP
TU é O CARA MESMOOOOOOO ............
Citação:MARCELO
[txt-color=#e80000]Public Type edParagraphIndent[/txt-color]
FirstIndent As Long
LeftIndent As Long
RightIndent As Long
[txt-color=#e80000]End Type[/txt-color]
[txt-color=#e80000]Public Property Get SelectionIndent() As edParagraphIndent[/txt-color]
Dim tp As PARAFORMAT2
Dim lR As Long
tp.dwMask = PFM_STARTINDENT Or PFM_RIGHTINDENT Or PFM_OFFSET
tp.cbSize = Len(tp)
lR = SendMessage(rtfTexto.hWnd, EM_GETPARAFORMAT, 0, tp)
SelectionIndent.FirstIndent = tp.dxStartIndent
SelectionIndent.RightIndent = tp.dxRightIndent
Select Case tp.dxStartIndent
Case Is < 0
SelectionIndent.LeftIndent = tp.dxStartIndent + tp.dxOffset
Case Is = 0
SelectionIndent.LeftIndent = tp.dxStartIndent
Case Is > 0
SelectionIndent.LeftIndent = tp.dxOffset
End Select
[txt-color=#e80000]End Property[/txt-color]
[txt-color=#e80000]Public Property Let SelectionIndent(New_SelectionIndent As edParagraphIndent)[/txt-color]
Dim tp As PARAFORMAT2
Dim lR As Long
tp.dwMask = PFM_STARTINDENT Or PFM_RIGHTINDENT Or PFM_OFFSET
tp.dxStartIndent = New_SelectionIndent.FirstIndent
tp.dxOffset = -New_SelectionIndent.FirstIndent + New_SelectionIndent.LeftIndent
tp.dxRightIndent = New_SelectionIndent.RightIndent
tp.cbSize = Len(tp)
lR = SendMessage(rtfTexto.hWnd, EM_SETPARAFORMAT, 0, tp)
[txt-color=#e80000]End Property[/txt-color]
Marcelo o ASHKATCHUP ja resolveu .......... mas vc tem uma ideia melhor????
Não, se ele resolveu colega pode encerrar e pontua-lo ele entendeu melhor a sua função que eu, boa sorte com sua ocx.
rsrsrs ......................... ta certo doutor marcelo ............. obrigaduuuuuuuu pela atençãooo
o primeiro problema foi resolvidoooo
Bom mais uma vez estou com dúvidas
na classModule como que eu faço para declarar uma propriedade como matriz:
ex:
public property get Tabs() as integer <<<<<<
[txt-color=#e80000]tabs aqui seria uma matriz tipo Tabs(0) tabs(1) tabs(2) etc[/txt-color]
end property
Bom mais uma vez estou com dúvidas
na classModule como que eu faço para declarar uma propriedade como matriz:
ex:
public property get Tabs() as integer <<<<<<
[txt-color=#e80000]tabs aqui seria uma matriz tipo Tabs(0) tabs(1) tabs(2) etc[/txt-color]
end property
vou tentar assim ser der certo blz
Public Property Get Row(Index As Integer) As clsRow
Set Row = mvarclsRow(Index)
End Property
Public Property Set Row(Index As Integer, vData As clsRow)
Set mvarclsRow(Index) = vData
End Property
Public Property Get Row(Index As Integer) As clsRow
Set Row = mvarclsRow(Index)
End Property
Public Property Set Row(Index As Integer, vData As clsRow)
Set mvarclsRow(Index) = vData
End Property
Citação:SOLUÇÃO:
Public Property Get Tabs(ByVal Index As Integer) As Long
[txt-color=#007100][ô]CODIGO[/txt-color]
End Property
Public Property Let Tabs(ByVal Index As Integer, New_Width As Long)
[txt-color=#007100] [ô]CODIGO[/txt-color]
End Property
Tópico encerrado , respostas não são mais permitidas