PROBLEMAS COM CODIGO AVANCADO
1º como faço para que um Richtextbox mostre um texto escrito direto no código fonte? (não posso utilizar banco de dados)
2º como faço para que quando eu de um clic no HSCROLLBAR ele mostre no Richt um outro 2º texto,
OBS: o que eu estou tentando fazer é um programa que funcione como um livro, mostrando textos em páginas diferentes, para vizualização dos textos estou utilizando um richt text box para fazer a paginação dos textos estou utilizando HSCROLLBAR e gostaria que os textos todos fossem escritos diretamente no código do vb e fossem visualizados no richttextbox porem não consigo uma solução para que quando eu clique no HSCROLLBAR ele passe para o proximo ou para o texto anterior.
Vi uma vez um programa em vb que transforma um texto escrito e formatado no word para codigo o vb, alguem conhece algo parecido?
Obrigado!!!!
2º como faço para que quando eu de um clic no HSCROLLBAR ele mostre no Richt um outro 2º texto,
OBS: o que eu estou tentando fazer é um programa que funcione como um livro, mostrando textos em páginas diferentes, para vizualização dos textos estou utilizando um richt text box para fazer a paginação dos textos estou utilizando HSCROLLBAR e gostaria que os textos todos fossem escritos diretamente no código do vb e fossem visualizados no richttextbox porem não consigo uma solução para que quando eu clique no HSCROLLBAR ele passe para o proximo ou para o texto anterior.
Vi uma vez um programa em vb que transforma um texto escrito e formatado no word para codigo o vb, alguem conhece algo parecido?
Obrigado!!!!
Você poderia utilizar algo assim: Com o uso de matriz de variável, poderá trabalhar com vários textos ao mesmo tempo. ou no caso de apenas um texto pode ser usado apenas uma variável.
'Declare as variáveis no módulo.
Global ggTexto As Texto
Global ggNVago As Integer
Type Texto
Texto1As String
Texto2 As String
Texto3 As String
End Type
'Esta linha podem ser ser acionadas no evento click de um botão por exemplo.
Dim Controle
Controle=Controle+1
ggNVago = FreeFile
Open App.Path & "\Texto.dat" For Random As #ggNVago Len = Len(ggTexto)
Get #ggNVago, Controle, ggTexto
Para salvar poderia usar o mesmo processo, subtituindo o Get pelo Put.
'Declare as variáveis no módulo.
Global ggTexto As Texto
Global ggNVago As Integer
Type Texto
Texto1As String
Texto2 As String
Texto3 As String
End Type
'Esta linha podem ser ser acionadas no evento click de um botão por exemplo.
Dim Controle
Controle=Controle+1
ggNVago = FreeFile
Open App.Path & "\Texto.dat" For Random As #ggNVago Len = Len(ggTexto)
Get #ggNVago, Controle, ggTexto
Para salvar poderia usar o mesmo processo, subtituindo o Get pelo Put.
AÃ, GEMADA, tente isto...
Private Sub HScroll1_Change()
Dim sStr As String
Dim iInt As Integer
For iInt = 0 To Str$(HScroll1.Value)
If iInt = 0 Then
sStr = "Página 0"
ElseIf iInt = 1 Then
sStr = "SEU TEXTO #1"
ElseIf iInt = 2 Then
sStr = "SEU TEXTO #2"
ElseIf iInt = 3 Then
sStr = "SEU TEXTO #3"
Else
sStr = "Essa foi a ÃÅ¡ltima Página"
End If
RichTextBox1.Text = sStr
Next iInt
End Sub
Testei aki e funcionou, blz ???
Abraço, e T+
Private Sub HScroll1_Change()
Dim sStr As String
Dim iInt As Integer
For iInt = 0 To Str$(HScroll1.Value)
If iInt = 0 Then
sStr = "Página 0"
ElseIf iInt = 1 Then
sStr = "SEU TEXTO #1"
ElseIf iInt = 2 Then
sStr = "SEU TEXTO #2"
ElseIf iInt = 3 Then
sStr = "SEU TEXTO #3"
Else
sStr = "Essa foi a ÃÅ¡ltima Página"
End If
RichTextBox1.Text = sStr
Next iInt
End Sub
Testei aki e funcionou, blz ???
Abraço, e T+
Tópico encerrado , respostas não são mais permitidas