Matheus-vb6

O formulário se inicia com um browser chamado "net" com index 0.... a idéia era que, quando o usuario clicasse em "nova aba" criasse um novo objeto com o mesmo nome "net" e o index net.count+1,... ai eu só programaria uma vez... no caso botoes e tudo mais estão tudo certinho, tão com x(numero) nananan... No 'Set x = Me.Controls.Add("Shell.Explorer.2", "x") não tem como espeficicar um indice?? Abraços :D

Caramba cara, otima explicação... No caso então, se fosse pra mim criar um indice entre os webbrowser, seria x.index = NAVEGADORDATELA.index+1? e para mostrar a aba escolhida, seria numero = val(sstab1.tab) %% codigo para ocultar todos browser %% x(numero).visible=true Vou implementar a logica para o funcional... Vlws kuroi :D edit== Private Sub SSTab1_DblClick() If SSTab1.Tab = 1 Then Dim x As WebBrowser Set x = Me.Controls.Add("Shell.Explorer.2", "x") Set x.Container = Form1 x.Visible = True x.Navigate ("www.youtube.com") 'x.index = SSTab1.Tab x.Top = net(0).Top x.Left = net(0).Left x.Width = net(0).Width x.Height = net(0).Height End If End Sub Ele apresentou erro no x.index... comentei a linha e ao tentar criar outro objeto, ele disse q já existe um chamado X... como crio uma array?

Eu testei aqui, e pelo visto vai ser muito trabalhoso fazer um navegador com abas... mas vou continuar tentando Abraços :D edit-- Deu erro ao tentar criar um webbrowser Private Sub SSTab1_DblClick() Dim x As WebBrowser Set x = Me.Controls.Add("VB.WebBrowser", "x") Set x.Container = Form1 x.Visible = True x.Navigate ("www.youtube.com") End Sub A proposito, como eu identifico, na tab, onde está sendo o clique? no caso... em qual tab...

Se não me puderem ajudar com os 2, qualque um dos dois serve :S Queria muito esse negocio de pisca... o navegador é mais cheretisse kk Abraços :D

É cara, eu penso, (comecei a pensa hj na vdd kk) q o curso só serve mesmo pra ve se a materia te atrai e se é naquilo que você quer seguir, porque conhecimento mesmo você busca correndo atras, e o fórum facilita isso, pois quem ta aqui, com ctz alguma vez já ajudou alguém, ao contrario de muitos q a gente ve por ai e dizem um simples não... como já aconteceu mtas vezes cmg no tecnico, as vezes já vi coisas diferentes, quis aprender e recebi um não, mas que bom que estamos no século XXI e temos a INTERNET :D Esse ano acaba meu curso :D -(espero)- Abraços e boa sorte :D

Cara... no imaginario assim é tenso kkk, você não precisa divulga seu projeto, mas você poderia postar ou enviar esses formularios q você ta usando? ou se não, fazer um similar, porque to perdidinho e em vez de ajudar posso te atrapalhar ou deixar confuso... Qualque coisa só manda matheus.rubens@hotmail.com Abraços :D

Você pode fazer uma condição.... usando boleano, tipo... Dim a, b As String a = dados("Endereco") b = Text1.Text dim acrescentou,alterou as boolean acrescentou=false alterou=false if a<>b then alterou=true x = Mid(a, Len(b), Len(a) - Len(b)) if x <>empty then alterou=true acrescentou=true end if Fiz de cabeça, então não testei =p, mas acredito que dessa forma ele verifica se acrescentou :D Abraços :D

É cara explica melhor ai porque eu também não entendi... você quer q liste num datagrid.. ta, mas partindo de q principio? vai se listbox, check, como?? Pode fica tranquilo postando suas duvidas ae que não ta incomodando não, tamo aqui no forum para ajudar e sermos ajudados :D Abraços :D

Vou fazer aqui, já edito e posto o código! edit--- Código ai, explicado cada linha... os q tem ''' é que representa a ultima especificação... qualquer duvida só postar... abraços Private Sub Form_Load() Dim x, b As Single ' declaro as variaveis abrebanco ' abro a conexao Set rsdados = New ADODB.Recordset ' criei minha primeira consulta rsdados.Open "select * from marcas", cn ' /\ x = 0 ' criei um contador começando do 0 Do While rsdados.EOF = False ' repetirá a ação até acabar os dados rsdados.MoveNext ' vai pro proximo registro x = x + 1 ' soma 1 no contador Loop ' refaz Grafico.RowCount = x ' quantidade de linhas é qnts ele conto Set rsdados2 = New ADODB.Recordset ' criei minha segunda consulta rsdados2.Open "select * from marcas", cn ' /\ Do While rsdados2.EOF = False ' vai fazer até acabar os dados Grafico.RowLabel = rsdados2("Produto") ' vai escrever nas label os nomes dos produtos If Grafico.Row < x Then Grafico.Row = Val(Grafico.Row) + 1 ' isso foi uma especie de tratamento de erro :X rsdados2.MoveNext ' vai pro proximo registro Loop 'refaz Grafico.Column = 1 ' faz as legendas do grafico Grafico.ColumnLabel = "Produto" ''' Grafico.Column = 2 ''' Grafico.ColumnLabel = "Marca" ''' Grafico.Column = 3 ''' Grafico.ColumnLabel = "Peso" ''' Grafico.Column = 4 ''' Grafico.ColumnLabel = "Fornecedor" ''' Grafico.Column = 5 ''' Grafico.ColumnLabel = "Preço" ''' Set rsdados3 = New ADODB.Recordset ' criei uma terceira consulta rsdados3.Open "select * from marcas", cn ' /\ b = 1 ' contador das linhas Do While rsdados3.EOF = False 'vai repitir até terminar os dados Grafico.Row = b ' especifica qual ele vai editar Grafico.Column = 1 ' poe os dados Grafico.Data = rsdados3("Produto") ''' Grafico.Column = 2 ''' Grafico.Data = rsdados3("Marca") ''' Grafico.Column = 3 ''' Grafico.Data = rsdados3("Peso") ''' Grafico.Column = 4 ''' Grafico.Data = rsdados3("Fornecedor") ''' Grafico.Column = 5 ''' Grafico.Data = rsdados3("Preço") ''' b = b + 1 ' soma um no contador rsdados3.MoveNext 'vai pro proximo registro Loop 'refaz End Sub [/codebox]

Cara,remotei a fazer agora e nada ainda :/, ninguém tem um projeto ai com access pra me mandar? :S ou só postar o código... abraços :D

Boa tarde pessoal... tenho 2 duvidas aqui 1- aba navegador: criei uma especie de navegador, e gostaria de trabalhar com abas nele... como eu crio objetos(programados) via código?? 2- Piscar na barra: tipo MSN, quando ele pisca... gostaria de saber como eu programo pra tipo ele piscar se o programa ficar fora de foco por X tempo... Abraços :D

No site da microsoft ACHO que não tem mais, e acho que você só vai achar na net (mercado negro), eu tenho full mas é proibido divulgar aqui no fórum... Abraços

O do while roda sim, voce me mandou um projeto uma vez q eu ainda falei: q q esse ultil? ai fiz com do while porque já tava acostumado... esse chart é muito bom, qualque duvida MSN ou aki :D Té mais

Ative o componente Microsoft chart controls, e você terá um componente de grafico... agora quanto a programação.... -na propriedade custom dele, você pode entrar e configurar cores, texto, legenda, etc.... -columncount: (quantidade de colunas que terá no gráfico, se quise pode fazer ele ler o banco de dados e ver quantos dados tem... -column: qual coluna está sendo editada, cuidado para não confundir com rows... eu particulamente uso uma coluna por row, mas no caso, se você quiser classificar por mês, pode fazer varias colunas dentro de uma linha(row)... -columnlabel: se não me engano, é o que apareceria na legenda -rowcount,row e rowlabel se aplicam as mesmas explicações acima -showlegend: mostra ou não legenda do gráfico... deixe true, false pode causar dificuldade na interpretação.... você sabe fazer consulta no banco de dados com usando do while? Caso não saiba, poste aqui uma base dos seus dados, exemplo, "tenho os campos nome,sobrenome,telefone e tal" gostaria q o grafico fosse assim assim assado... ai ajuda na hora de elaborar o código... caso saiba, poste aqui se você conseguiu ou se n atendeu suas necessidades.... Abraços :D

Castro do tecnico, você por aqui cara?:D Seja bem vindo ao fórum :D Exercicio 3 dos 8 de revisao =p Fica assim com do while: Dim a As Single a = Val(txtnumero.Text) b = 0 Do While b <= a If b Mod 2 = 0 Then LstTabuada.AddItem b End If b = b + 1 Loop O seu código não funcionou? A olho eu não vi nenhum erro... mas segue ai Abraços cara :D edit -- Cara, acho q o erro provavelmente é que na linha " b = txtB.Text" você não declaro que é um valor, val(Txtb.text) Abraços

Vou fazer +- como seria... para limpar o data grid seria .clear normal? se for, o código para atualizar vem do "adicionar" o que tiver com % na frente quer dizer q você deve adaptar ao seu código ok? %abrebanco set %rsdados = new adodb.recordset rsdados.open "select * from %TABELA%",%CONEXAO% do while rsdados.eof=false '%%%aqui se faz o código que vai inserir os dados na sua tabela%%% rsdados.movenext loop Qualque duvida poste ai cara... Abraço :D

Olha cara... eu não curto usar refresh, eu prefiro refazer, vamos supor que você crie uma função "atualizargrid" private sub atualizargrid() %codigo para limpar a tabela e depois um outro para listar% end sub ai onde você coloco NOME.refresh, você poe "atualizargrid" Acho que seria melhor :) Abraços :D

Nunca fiz algo multiusuario e nem servidor, mas acho q em uma unidade compartilhada, tende-se a pegar... tipo \\SERVIDOR\Sistema Abraços :D

Fala xara, tudo bom? então... como o erro ocorre nessa linha Private Sub cmdGravar_Click(Index As Integer) ---> ____FICA AMARELO AQUI____ provavelmente no index do seu botão, deve ta prenchido alguma coisa... apaga ele la e substitui essa linha por Private Sub cmdGravar_Click() Abraços

Nunca usei janela de dialog, vou pesquisar como se faz isso e já posto aqui :D abraços edit--- Caramba, nunca pensei que seria tão facil kkk Tópico resolvido

Cara... axei esse código complicado... Fiz de uma forma mais simples... vou postar o código: Private Sub Form_Resize() imgFundo.Width = frmGeral.Width imgFundo.Height = frmGeral.Height lblBemVindo.FontSize = (frmGeral.Width + frmGeral.Height) / 1000 lblNome.FontSize = (frmGeral.Width + frmGeral.Height) / 1000 lblNome.Top = lblBemVindo.Height + 25 End Sub Isso, na minha opiniao, já deixa de ser programação, vira mais pra matematica :D Abraços :D

Se não entenderam posta q eu tento explicar de outra forma... mas to querendo muito fazer isso :S

Você quer por um instalador dentro de outro? :S Nunca pensaria nisso kkk Mas se der certo... faz... Abraços :D

Coloca todos arquivos, e nas propriedades dele, tem uma que está "somente se não existir" Agora to no notebook, e aki n tem... mas se você não achar, eu posto uma SS de onde ta! Abraços :D

Vlws ae pessoal, gostei q agora resolvi com msflex e list :D