Jump to content
Fórum Script Brasil
  • 0

DEIXAR TEXT DO FORM DINÂMICO.


rl28

Question

Boa noite!

Andei procurando em alguns fóruns a respeito de alterar a informação do text da form, mas não encontrei muita coisa. Por exemplo, cada vez que clico em uma ação/botão, ele abre um form, só que traz o nome que informei nas propriedades, gostaria que cada vez que eu abrisse a form, mostrasse o nome diferente de cada uma, assim consigo controlar cada transação que estiver aberta.

Abri um form, tela 1, chamei de novo, tela 2 e assim por diante.. Montei um código mas está dando erro, vi em um fórum a dica, mas no meu carro não consegui fazer rodar ainda..segue abaixo:

Public Class Principal
    Public formularios As New Collection
    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles abretransacao.Click

        Dim Form As New Form()
        Static intnumero As Integer

        intnumero = intnumero + 1
        Form.Caption = "Formulário # " & intnumero ---- aqui onde está dando erro, informando que é uma expressão e por isso não pode ser um destino de uma atribuição
        Form.Show()
    End Sub

Código original que peguei:

Public formularios As New Collection

Private Sub Command1_Click()
Dim NovoForm As New Form1
Static intnumero As Integer

  intnumero = intnumero + 1
  NovoForm.Caption = "Formulário # " & intnumero
  NovoForm.BackColor = QBColor(intnumero)
  formularios.Add NovoForm
  NovoForm.Show
End Sub 

Link to post
Share on other sites

1 answer to this question

Recommended Posts

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

Cloud Computing


  • Forum Statistics

    • Total Topics
      148719
    • Total Posts
      644508
×
×
  • Create New...