kuroi

você quer q seu grid tenha uma unica coluna?? então use UNION ALL: Select coluna1 From tabela1 UNION ALL Select coluna2 From tabela2

primeiro acho q la em cima, você tem q associar o Catalog com a Table: Set TBL.ParentCatalog = Cat ai depois q você tiver adicionado a coluna, você pega pela propriedade "Autoincrement" .Columns("Controle").Properties("Autoincrement") = True mas imagino q o nome das propriedades possam depender do banco de dados q você ta usando. então não necessariamente vai ser "Autoincrement" (pelo menos sei q funciona no access). se não der certo com "Autoincrement", va percorrendo os nomes das propriedades (verifique o conteudo de .Columns(0).Properties(0).Name, depois de .Columns(0).Properties(1).Name e assim por diante) ate achar a propriedade certa.

verdade, não sei da onde eu tirei esse codigo do Remove(). eu olhei um codigo q eu tinha feito anos atras q eu tinha criado uma funcao chamada Remove() e me confundi. o certo é isso: Unload net(numero)

aqui ele explica como faz: http://www.macoratti.net/adox.htm

é isso mesmo, de uma olhada aqui: http://scriptbrasil.com.br/forum/index.php?showtopic=71250

dei uma corrigida no codigo: vetor = Array(2, 5, 6, 8, 13, 19) Randomize Dim valor As Integer valor = Int((UBound(vetor) + 1) * Rnd()) Label1.Caption = vetor(valor)[/code]

ou você usa os numeros como string e programa toda a logica da multiplicacao pra fazer as contas (se é q você vai ter memoria suficiente pra guardar 1 bilhao de digitos), ou você procura algum componente q faca conta com numeros tão gdes. mas seu professor deve ter passado isso de zuera em. quando ele passar a resposta, conte pra nos qual era.

o controle com indice 0 já ta la?? então troque essa linha ai por: Load net(net.Count)

ue, o codigo do link do raphael_suporte tira o print só da janela atual. pra tirar da tela toda é só passar 0 no segundo parametro: keybd_event vbKeySnapshot, 0, 0&, 0& 'Print da tela toda keybd_event vbKeySnapshot, 1, 0&, 0& 'Print da janela[/code] mesclarei os topicos.

no primeiro relatorio você passa a data inicial como parametro. para os outros 4, crie 4 campos formula. no primeiro desses campos você da um DateAdd() somando 1 dia na data inicial. nos seguintes você vai dando um DateAdd() somando 1 dia no campo anterior. ai você passa cada um desses campos com parametro pros subreports. sintaxe do DateAdd() pra somar 1 dia: DateAdd ('d', 1, {Tabela.Campo})

ue, se você deixar as fotos numa pasta no servidor q os dois pcs consigam acessar, não é so você chamar pelo caminho normalmente??

achei aqui, tem uma api chamada FlashWindow() q faz isso. pra saber se a janela ta fora de foco, use a api GetForeGroundWindow(). declare assim: Private Declare Function GetForegroundWindow Lib "user32.dll" () As Long Private Declare Function FlashWindow Lib "user32.dll" (ByVal hwnd As Long, ByVal bInvert As Long) As Long[/code] esse codigo faz a janela piscar caso esteja fora de foco. ai você pode por dentro dum timer e ir contando numa variavel esse X tempo ou coisa assim: [code]If GetForegroundWindow() <> Me.hwnd Then FlashWindow Me.hwnd, 1 End If em vez de: Set x.Container = Form1 coloque: Set x.Container = SSTab1 e ele vai aparecer dentro da tab atual. acho q na hora do Controls.Add(), o segundo parametro é o nome do objeto dentro do formulario. não pode ter dois com o nome de "x". você pode ir dandos os nomes "x1", "x2", "x3", etc. inicialize uma variavel com 1 e depois va somando: Set x = Me.Controls.Add("Shell.Explorer.2", "x" & i) i = i + 1[/code] depois pra acessar o controle, você tb pode pegar pelo nome q você passou no parametro, você não precisa mais da variavel original, exemplo: [code]Dim x As Label Set x = Me.Controls.Add("VB.Label", "x" & i) Set Me.Controls("x" & i).Container = Form1 Me.Controls("x" & i).Visible = True Me.Controls("x" & i).Caption = "texto" agora, aquela parte do array, é so pra caso você precise criar eventos pro seu WebBrowser, ou pra qualquer outro controle q você esteja adicionando. exemplo, imagine q você queira chamar o evento GotFocus do WebBrowser pra saber em q momento ele recebe o foco. tipo assim: Private Sub WebBrowser1_GotFocus() End Sub[/code] a dificuldade ta em não ter q escrever no codigo um evento pra cada objeto. como você vai fazer pra saber qual das WebBrowsers ta chamando o evento. se você tiver então 99 WebBrowsers no form, você vai escrever o mesmo evento 99 vezes?? a ideia era fazer como eu expliquei aqui: ai você não usaria mais aquele codigo do Controls.Add(). pra adicionar um novo controle é so chamar esse codigo do Load(). se no seu projeto você não ta pensando em chamar eventos do WebBrowser então continue como você ta fazendo. agora, se você pretende chamar os eventos e ainda assim quer continuar como você ta fazendo, tem dois jeitos diferentes q encontrei de fazer, mas são bem complicados, de uma olhada: http://www.vbforums.com/showthread.php?t=372811 http://www.vbforums.com/showthread.php?p=3109544#post3109544

com webbrowser é mais complicado. vou passar uma explicacao aqui, mas la pra baixo passei o codigo funcionado certinho. primeiro de tudo, naquele codigo do label, a gente passava pro Controls.Add() a string "VB.Label", certo?? essa string é um tipo de uma identificacao do objeto dentro do vb6, chamada de ProgId. no caso, o "VB" q aparece no comeco da string é o nome da biblioteca a q pertence o objeto. pra verificar isso, faca o seguinte, na janela de codigos, aperte F2. ele vai mostrar a lista de objetos, funcoes e constantes de cada uma das biliotecas adicionadas ao seu projeto. você vai ver q o objeto Label faz parte de uma biblioteca chamada "VB". por isso "VB.Label". geralmente, mas não sempre, o ProgId do objeto é escrito "Nome_da_Biblioteca.Nome_do_Objeto", como no caso do Label. mas isso não funciona com o WebBrowser. se você adicionar o componente do Microsoft Internet Controls (q adiciona o webbrowser no seu projeto), vai ver q o nome da biblioteca dentro do vb6 é "SHDocVwCtl". agora, caso você tente esse codigo: Set x = Me.Controls.Add("SHDocVwCtl.WebBrowser", "x") você recebera a mensagem de erro falando q esse ProgId não é valido. mas, felizmente, o vb6, entende q você tava querendo apontar pro WebBrowser e aponta pra você o ProgId correto q é "Shell.Explorer.2". e ainda bem q ele faz isso, porque eu particularmente não ia saber como descobrir qual é a ProgId do objeto, se ele não avisasse na mensagem de erro. agora, a gente já sabe qual string usar no metodo Controls.Add(), mas ainda tem mais uma coisa. caso no seu projeto já haja adicionado um objeto WebBrowser em qualquer form, é so você usar o codigo normalmente q deve funcionar. agora, caso não tenha nenhum WebBrowser carregado em nenhum form, o vb6 não vai saber como carregar um novo em tempo de execucao. se você adiciona um componente qualquer no vb6, ele não é automaticamente vinculado com o .exe depois da compilacao (ou mesmo rodando o programa dentro do vb6). a não ser q algum objeto dessa biblioteca tenha sido usado, o .exe não vai conter os dados dos objetos, pra não ocupar espaco desnecessario, já q o v6 entende q a biblioteca não foi usada. mas você pode resolver isso alterando as opcoes das propriedades do projeto. RESUMINDO: clique em menu Project -> Project1 Properties.... na janela q abrir, na aba Make, descheque a opcao Remove information about unused ActiveX Controls e clique em OK. agora, use o seguinte codigo q deve funcionar: Private Sub SSTab1_DblClick() 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") End Sub[/code] veja ai se funciona. mas de qualquer modo, apesar da explicacao toda, esse metodo não é muito legal caso você queira um numero ilimitado de abas (ou 99 abas q é o maximo q o SSTab suporta). você teria problemas na hora de associar eventos a cada objeto. agora, caso você usasse aquela dica q passei do array, seria muito mais simples. no momento do clique ele deve mudar pra aba selecionada. então você pega por SSTab1.Tab.

pra trabalhar com abas, use o objeto TabStrib do Microsoft Windows Common Controls 6.0 ou a SSTab do Microsoft Tabbed Dialog Control 6.0. eu gosto mais do SSTab. a parte dos objetos programados, você fala em criar controles em tempo de execucao?? pra adicionar um novo Label no form, seria isso, por exemplo: Dim x As Label Set x = Me.Controls.Add("VB.Label", "x") Set x.Container = Form1 x.Visible = True x.Caption = "texto"[/code] mas se a todo momento o cara puder adicionar novas tabs e novos objetos tiverem q ser mostrados, o melhor é você usar um array de objetos (seleciona um objeto qualquer, copie-o e cole. quando ele perguntar se deseja criar o array, clique em "Sim". ai sera criado um array para esse objeto, sendo q o q foi colado sera o indice 1. ai você pode apagar esse do indice 1, já q a intencao é criar depois durante a execucao). ai pra adicionar novos indices por codigo, você faria: [code]Load seu_controle(seu_controle.Count) e pra remover: seu_controle(indice).Remove a parte de piscar, mais tarde faco uns testes e dar uma pesquisada e se eu encontrar qualquer coisa eu posto aqui.

o componente do flash funciona em outros projetos?? se você abrir um projeto novo, conseguem adiciona-lo e fazer funcionar?? nesse caso, tentem abrir um novo projeto pra substituir o .vbp q vocês usam atualmente. criem um novo projeto, adicionem todos os componentes e referencias e em seguida adicionem todos os forms do .vbp antigo no .vbp novo (melhor copiar tudo numa pasta separada).

você adicionou a referencia ao Microsoft ActiveX Data Objects??

o problema ta em fazer a msgbox?? então, use um formulario pra faze-la q fica mais facil. ponha a propriedade ControlBox como False e chame como modal, assim não da pra fechar.

a sala de tutoriais é só pra postar tutoriais prontos, moverei pro local correto. agora, quanto a sua duvida, se entendi direito, você pode usar a funcao Dir() ou o componente FileSystemObject pra listar arquivos de um diretorio. assim, sabendo em q unidade se encontra o cartao sd, você poderia percorrer os arquivos e incluir na listbox.

o vba funciona dentro dos softwares especificos. pra criar o .exe tem q ser no visual basic mesmo ou em outra linguagem. o vb6 é muito parecido com o vba, você não tera mta dificuldade.

você esta usando java?? o q exatamente faz esse programa de automacao e em q momento é criado esse xml??

java não é javascript, fique de olho onde você posta, moverei ao local correto. e explique melhor o q você quer q não deu pra entender nd.

testei aqui e no modo de compatibilidade ele realmente muda a string do user agent do ie8 para o ie7, então deve dar pra identificar o modo de compatibilidade sim. mas não é desse jeito q funciona. o $_SERVER["HTTP_USER_AGENT"] guarda uma string q identifica o seu sistema. uma das informacoes guardadas la dentro é a identificacao do browser. se você procurar por ai, pode encontrar uns codigos muito gigantes q interpretam o user agent e te retorna certinho qual o browser, apesar de q nem sempre funciona. mas no seu caso, como você só precisa identificar as versoes do ie, ai fica mais facil. procure dentro da string, se nela estiver escrito "MSIE 7", então o usuario esta usando o ie7 ou o modo de compatibilidade, e então, se for o caso, você da o aviso.

funcionar no dreamweaver não significa nd. entenda q existem varios navegadores sendo usados atualmente (internet explorer, firefox, chrome, opera, safari) e cada um interpreta o html e o css de um jeito proprio. e o pior ainda, diferentes versoes do mesmo navegador podem interpretar o codigo de jeito diferente. e, ainda por cima, o dreamweaver ainda interpreta de um outro jeito. ou seja, em cada navegador o seu site deve aparecer de um jeito (e não necessariamente vai estar como estava no dreamweaver), e o gde desafio dos web designers é criar uma pagina em q o layout "funcione" em todos os navegadores. esse negocio de modo de compatibilidade acho q só existe em um dos navegadores q é o internet explorer, e somente ultima versao, a versao 8 (caso a 9 já tenha saido, me corrijam). e aquilo q eu falei procede. testei aqui e realmente parece q o modo de compatibilidade é mesmo uma simulacao do ie 7 dentro do ie 8. ou seja, se o cara q acessar o seu site estiver usando a versao 7 do internet explorer, vai sempre aparecer com o layout quebrado pra ele (e pelo q vi com a versao 6 (q tb é muito usada ainda no brasil, já q é a versao nativa do windows xp) você tb terá problemas). pra você visualizar o q eu estou falando, baixe um programa chamado IETester. o q ele faz é abrir o site em varias versoes do internet explorer pra você comparar o layout e ir ajustando de modo q ele fique bom em todas as versoes. pode ver q na aba do ie 7 o layout vai ficar exatamente igual aparece no modo de compatibilidade dentro do ie 8. sendo assim, o melhor a fazer é seguir o conselho do sk15. de uma verificada no seu html. vi q tem uma tag h1 fechada sem ter sido aberto, tem uma outra h1 com uma tag img dentro, o q não tem sentido nenhum. mas acho q pra resolver, você deveria mudar a posicao do h1 onde esta o seu banner. ele esta jogado dentro do th, depois do menu de login, sendo q deveria estar a esquerda dele no visual... ou tenta dar uma posicionada pelo css. mas deixa o dreamweaver de lado q não acho q o modo design dele sera de ajuda no caso, você tem q mexer é no codigo. e só pra complementar, não testei aquilo do user agent, então não sei se da pra verificar por codigo. mas se você ta usando php, se você pegar pelo $_SERVER["HTTP_USER_AGENT"], você pode detectar o navegador q ele usa, apesar de não ser garantido. nesse caso, você poderia verificar se ele usa uma versao mais antiga do q o ie8 e dar o aviso. não entendi o q você quis dizer...

e você está usando visual basic??

esse modo de compatibilidade é tipo uma simulacao do ie7 dentro do ie8, não seria isso?? se não me engano, ele muda ate o user agent, ai talvez desse pra detectar quando fosse o ie7 e ai você mostrava um aviso. entretanto, acho melhor seguir a dica do sk15... só não entendi q é um "código omegênio" hehehe