VARIAVEL
Boa tarde pessoa, preciso de uma ajudinha, sei que é simples mas não estou conseguindo
Tenho uma tela principal com menus : [Ô]Arquivo, editar, gestão, etc...[Ô]
dentro de Gestao tem: [Ô]Agentes, Igrejas, serviços, etc...[Ô]
vou utilizar o mesmo form para todos os cadastros, uma vez que será os mesmos dados.
Para não ter que alterar os nomes dos label, gostaria de criar uma variavel.
Quando clicar no menu Agentes, dentro da variavel é atribuida a palavra agente, quando clicar em igreja é atribuida a palavra igreja e assim por diante.
Depois quando abrir o form o sistema verifica o nome que esta dentro da variavel e abre a tela com os label já correctos.
Fiz um modulo assim:
Module variaveis
Public variavelDCF As String
End Module
e no form coloquei assim:
Private Sub concelhos_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
If variavelDCF = [Ô]Concelhos[Ô] Then [ô]Se abrir o menu concelhos
Me.Text = [Ô]Concelhos[Ô] [ô]Altera o nome da tela para concelhos
Me.lblnome.Text = [Ô]Nome do Concelho[Ô] [ô]altera o 1º campo para nome do concelhos
Me.lbl.Text = [Ô]Distrito do Concelho[Ô] [ô]altera o 2º campo para distrito do concelho
elseif variavelDCF =[Ô]Agentes[Ô]
Me.Text = [Ô]Agentes[Ô] [ô]Altera o nome da tela para Agentes
Me.lblnome.Text = [Ô]Nome da igreja[Ô] [ô]altera o 1º campo para nome da igreja
Me.lbl.Text = [Ô]Distrito da Igreja[Ô] [ô]altera o 2º campo para distrito da igreja
End If
End Sub
Também já agora como poderia fazer com o Select case?
case = [Ô]Concelhos[Ô] Then [ô]Se abrir o menu concelhos
Me.Text = [Ô]Concelhos[Ô] [ô]Altera o nome da tela para concelhos
Me.lblnome.Text = [Ô]Nome do Concelho[Ô] [ô]altera o 1º campo para nome do concelhos
Me.lbl.Text = [Ô]Distrito do Concelho[Ô] [ô]altera o 2º campo para distrito do concelho
case =[Ô]Agentes[Ô]
Me.Text = [Ô]Agentes[Ô] [ô]Altera o nome da tela para Agentes
Me.lblnome.Text = [Ô]Nome da igreja[Ô] [ô]altera o 1º campo para nome da igreja
Me.lbl.Text = [Ô]Distrito da Igreja[Ô] [ô]altera o 2º campo para distrito da igreja
Tenho uma tela principal com menus : [Ô]Arquivo, editar, gestão, etc...[Ô]
dentro de Gestao tem: [Ô]Agentes, Igrejas, serviços, etc...[Ô]
vou utilizar o mesmo form para todos os cadastros, uma vez que será os mesmos dados.
Para não ter que alterar os nomes dos label, gostaria de criar uma variavel.
Quando clicar no menu Agentes, dentro da variavel é atribuida a palavra agente, quando clicar em igreja é atribuida a palavra igreja e assim por diante.
Depois quando abrir o form o sistema verifica o nome que esta dentro da variavel e abre a tela com os label já correctos.
Fiz um modulo assim:
Module variaveis
Public variavelDCF As String
End Module
e no form coloquei assim:
Private Sub concelhos_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
If variavelDCF = [Ô]Concelhos[Ô] Then [ô]Se abrir o menu concelhos
Me.Text = [Ô]Concelhos[Ô] [ô]Altera o nome da tela para concelhos
Me.lblnome.Text = [Ô]Nome do Concelho[Ô] [ô]altera o 1º campo para nome do concelhos
Me.lbl.Text = [Ô]Distrito do Concelho[Ô] [ô]altera o 2º campo para distrito do concelho
elseif variavelDCF =[Ô]Agentes[Ô]
Me.Text = [Ô]Agentes[Ô] [ô]Altera o nome da tela para Agentes
Me.lblnome.Text = [Ô]Nome da igreja[Ô] [ô]altera o 1º campo para nome da igreja
Me.lbl.Text = [Ô]Distrito da Igreja[Ô] [ô]altera o 2º campo para distrito da igreja
End If
End Sub
Também já agora como poderia fazer com o Select case?
case = [Ô]Concelhos[Ô] Then [ô]Se abrir o menu concelhos
Me.Text = [Ô]Concelhos[Ô] [ô]Altera o nome da tela para concelhos
Me.lblnome.Text = [Ô]Nome do Concelho[Ô] [ô]altera o 1º campo para nome do concelhos
Me.lbl.Text = [Ô]Distrito do Concelho[Ô] [ô]altera o 2º campo para distrito do concelho
case =[Ô]Agentes[Ô]
Me.Text = [Ô]Agentes[Ô] [ô]Altera o nome da tela para Agentes
Me.lblnome.Text = [Ô]Nome da igreja[Ô] [ô]altera o 1º campo para nome da igreja
Me.lbl.Text = [Ô]Distrito da Igreja[Ô] [ô]altera o 2º campo para distrito da igreja
Meu amigo, você está programando em VB.NET, uma linguagem orientada a objetos. Por que não cria uma classe com propriedades para isso e ai faz o form herdar dela?
Mas... sobre a tua questão...
Mas... sobre a tua questão...
Select Case variavelDCF
Case [Ô]Conselhos[Ô]
me.Text = [Ô]Tela dos Conselhos[Ô]
Case [Ô]Agentes[Ô]
me.Text = [Ô]Tela dos Agentes[Ô]
Case Else
me.Text = [Ô]Ash é gatão[Ô]
End Select
Mas como faço
TEm msn?
sim, johnhey_sp@hotmail.com
Ja te add...
Mas vou dar uma breve explicação aqui.
O objetivo de usar VB.NET/ C# é aproveitar as novas funcionalidades da Programação Orientada a Objetos. O modo com que você está fazendo funciona, só que seria melhor usar em VB6, quando não temos melhores opções. Eu trabalho com C#, mas fiz um pseudo código de como resolveria esse teu pepino...
Classe FORM Generico
Mas vou dar uma breve explicação aqui.
O objetivo de usar VB.NET/ C# é aproveitar as novas funcionalidades da Programação Orientada a Objetos. O modo com que você está fazendo funciona, só que seria melhor usar em VB6, quando não temos melhores opções. Eu trabalho com C#, mas fiz um pseudo código de como resolveria esse teu pepino...
Classe FORM Generico
Class FormGenerico Inherits Forms
[ô]/////Propriedades//////
Propriedade propLblNome
Propriedade propLbl
[ô]/////Propriedades//////
[ô]/////Eventos/////
Event OnShow
Me.LblNome.Text = Me.propLblNome
Me.Lbl.Text = propLbl
End Event
[ô]/////Eventos/////
End Class
nao apareceu nada para add, me passa o seu
juvbk@via-rs.net
é esse sim, n é hotmail
é esse sim, n é hotmail
Public Class Form1
Private _teste As String
Public Property Teste() As String
Get
Return _teste
End Get
Set(ByVal value As String)
_teste = value
End Set
End Property
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.Text = Me.Teste
End Sub
End Class
Dim x as New Form1
x.Teste = [Ô]Ash FODAO[Ô]
x.Show
deixe-me expressar melhor.
O que preciso é somente ter uma variavel onde eu possa buscar todos os dados que esta dentro dela em qualquer parte do sistema.
Exemplo:
no inicio do sistema tenho uma variavel com o nome X
e lhe atribuo o valor 100
e no ultimo form quero buscar o valor que esta dentro dela.
antes em vb6 criava um modulo e criava uma global
exemplo.
global X as string
depois no laod atribuia um valor:
Ex:
X = [Ô]Teste[Ô]
e depois no meu form colocava
form1.caption = X
Só que agora não consigo fazer
O que preciso é somente ter uma variavel onde eu possa buscar todos os dados que esta dentro dela em qualquer parte do sistema.
Exemplo:
no inicio do sistema tenho uma variavel com o nome X
e lhe atribuo o valor 100
e no ultimo form quero buscar o valor que esta dentro dela.
antes em vb6 criava um modulo e criava uma global
exemplo.
global X as string
depois no laod atribuia um valor:
Ex:
X = [Ô]Teste[Ô]
e depois no meu form colocava
form1.caption = X
Só que agora não consigo fazer
Tópico encerrado , respostas não são mais permitidas