PAINEL DE SELEÇÃO EM VB.NET

 Tópico anterior Próximo tópico Novo tópico

PAINEL DE SELEÇÃO EM VB.NET

VB.NET

 Compartilhe  Compartilhe  Compartilhe
#479387 - 30/01/2018 21:50:46

ANGELOATA
ARACATUBA
Cadast. em:Junho/2009


boa noite...

Gostaria de um auxilio de vocês preciso montar um form com uma seleção de produtos para fast food...

tipo:

Produto A| Produto B | Produto C |Produto D
Produto E| Produto F | Produto G | Produto H
Produto I| Produto J | Produto L | Produto M

vinculado a um banco de dados... alguem tem alguma ideia de como ffazer isso?





#479390 - 31/01/2018 00:42:55

KERPLUNK
RIO GRANDE DO SUL
Cadast. em:Junho/2009


Membro da equipe
Botões?

_______________________________________________________________________
Gostaria de ter seu sistema Desktop "traduzido" para uma interface web? Podemos conversar...
Virei Oráculo!
The end is nigh, be ready for the nukes!


#479394 - 31/01/2018 11:46:35

KURTGU
SAO PAULO
Cadast. em:Dezembro/2010


Coloque um flowlayoutpanel dentro coloque as picturebox.



#479410 - 31/01/2018 22:19:18

JCM0867
BALNEARIO CAMBORIU
Cadast. em:Março/2012


Última edição em 31/01/2018 23:06:35 por JCM0867

Não sei se entendi
Coloque os 12 produtos como colunas num banco no formato Boolean ou bit se for SQL server (True/False) ou (Selecionado/Não selecionado)
E na tela use Chekbox para cada produto, uma imagem do produto
Claro que no Banco de dados tem que ter outros campos, como Id, Data, Hora, nro do pedido, Valor,  cod. do cliente vinculado a um cadastro de clientes. mais as 12 colunas do pedido, etc
esse modelo já não serve se for dezenas de produtos. aí tem que usar duas tabelas relacionadas (dados do pedido e produtos selecionados).




Resposta escolhida #479415 - 01/02/2018 20:58:56

JBSLOPES
PRATA
Cadast. em:Agosto/2009


Você pode criar os controles em tempo de execução e adicionar no FlowLayoutPanel. Veja se esse exemplo te ajuda.

For Each p In SF_GRUPOS.GetGrupos
            descgrupo = p.DESCRICAO
            Dim l As Button
            Dim picFoto As PictureBox
            picFoto = New PictureBox
            picFoto.Width = 32
            picFoto.Height = 32
            picFoto.SizeMode = PictureBoxSizeMode.StretchImage
            l = New Button
            l.Text = p.DESCRICAO
            l.Tag = p.ID
            l.ForeColor = Color.Black
            l.BackColor = Color.White
            l.Font = New Font("Serif", 7, FontStyle.Regular)
            l.Width = 170
            l.Height = 80
            l.TextAlign = ContentAlignment.MiddleCenter
            l.Margin = New Padding(5)
            l.Cursor = Cursors.Hand
            If Not IsNothing(p.ms) Then
                picFoto.Image = Image.FromStream(p.ms)
            End If
            picFoto.Location = New Point(10, 20)
            l.Controls.Add(picFoto)
            FlowLayoutPanel1.Controls.Add(l)
            AddHandler l.Click, AddressOf labelClick

        Next

João Batista Silva Lopes


 Tópico anterior Próximo tópico Novo tópico


Tópico encerrado, respostas não sao permitidas
Encerrado por ANGELOATA em 05/02/2018 21:08:28