Snoopy
Membros-
Total de itens
12 -
Registro em
-
Última visita
Tudo que Snoopy postou
-
Alex o seu problema está aqui Private Sub Substitui_Var(Header As String, Data As String) Set objWord = New Word.Application objWord.Documents.Open ("c:\vba\contrato.doc") Toda vez que ele chamar Substitui_Var, ele abrirá uma cópia do arquivo Contrato.doc o que eu acho que te ajudaria, é declarar objWord como pública e retirar as duas primeiras linhas da sub Substitui_VAR. o que aconteceria, no momento que você clicar no botão, ele abriria o arquivo contrato uma vez vinculando as infos com a variavel "objWord". Quando você chamasse a sub Substiruir_Var, ele usaria as propriedades da variavel para substituir o texto Não sei se você me entendeu, mas qualquer coisa posta ai...
-
Verificar Se Recordset Está Setado
pergunta respondeu ao Promotor Advanced de Snoopy em Visual Basic
você está querendo saber se existe um propriedade que diz que a conexão com o database foi eralizada com sucesso?? ou uma propriedade que diz qual o database que você está conectado? -
Ontem eu ainda tinha visto no site do macoratti um exemplo que apresentava o mesmo resultado, não havendo comentário nenhum sobre essa situação... Com certeza é a mesma coisa...
-
Cara, tb não encontrei diferença entre eles!!! procuraste alguma coisa no msdn???
-
Sei que o Pedro num gosta de pensar muito hehehehe segue abaixo um pouco mais simplificado o que ele queria Private Sub Image3_Click() Common.Filter = "Arquivo jpg|*jpg" Common.InitDir = "Meus documentos" Common.ShowOpen Picture1.Picture = LoadPicture(Common.FileName) 'Carrega a imagem para determinar as dimensões da picture1 If Picture1.Height > "5175" Or Picture1.Width > "10575" Then 'Se forem maiores que o especificado, limpa a picture1, redimenssiona para o tamanho máximo e posiciona no meio. Picture1.Picture = Nothing Picture1.Height = "5175" Picture1.Width = "10575" Picture1.Left = (Form1.Width / 2) - (Picture1.Width / 2) MsgBox ("Desculpe sua imagem é maior que o tamanho que nós dispomibilizamos") Else Picture1.Picture = LoadPicture(Common.FileName) Picture1.Left = (Form1.Width / 2) - (Picture1.Width / 2) End If End Sub no seu código Pedro, ele poderia sempre acabar carregando a imagem, caso uma das dimensões estivessem abaixo do que você especificou. debugando manualmente, você veria isso acontecer.
-
você quer que o Excel reconheça o nome já cadastrado ou o seu programa em VB que deveria identificar que já existe o nome cadastrado?
-
deixa ver se eu entendi esse seu Dbgrid está vinculado a algum banco de dados e você quer alterar os dados do banco de dados manualmente? ou você quer escrever nas celulas do dbgrid?
-
ventrue_rj... você deverá declarar uma variavel como GLOBAL e salvar o login do usuário nessa variavel... toda vez que você carregar o outro form, você deverá dizer que o label é igual ao valor da variavel declarada como GLOBAL...
-
Galera Komo Eu Fasso Para Que A Picture1 Teja ...
pergunta respondeu ao PedroBarreto de Snoopy em Visual Basic
arruma assim para ele salvar com extensão SI Com.FileName = "" 'Definir o filtro de tipos de arquivos Com.Filter = "Arquivo SI |*.si" 'Definir o diretório inicial Com.InitDir = "C:\Windows" Com.ShowSave If Com.FileName = "" Then MsgBox "Nenhum Arquivo Salvo !" Else MsgBox "O Salvo é : " & Com.FileName 'Salva arquivo com nome que você criou na COM SavePicture Picture1, Com.FileName End If Espero ter ajudado -
Galera Komo Eu Fasso Para Que A Picture1 Teja ...
pergunta respondeu ao PedroBarreto de Snoopy em Visual Basic
Para você conseguir colocar um picture no meio da tela você deverá fazer achar o meio da Form primeiramente(form1.width / 2 e form1.height / 2) depois você deverá achar o meio da sua sua imagem aberta(picture1.width / 2 e picture1.width / 2) Agora se você diminuir a metade da sua imagem da metade do seu form, você terá a posição inicial. 'Posição na direita. picture1.left = (form1.width / 2)-(picture1.width / 2) 'Posição no topo picture1.top= (form1.height/ 2)-(picture1.height / 2) Se você entedeu beleza... qualquer coisa da um toque ai... -
A troca da cor é feita pela propriedade BACKCOLOR da FORM propriedade essa cita pelo fahledu é só clicar na propriedade e escolher a cor desejada. existe a possibilidade de criar uma cor especifica.
-
Só complementado a minha resposta acima(rs...) o número do erro gerado é 32755 um exemplo de aplicação: On Error Resume Next CommonDialog1.ShowPrinter If Err.Number = 32755 Then 'Realiza o que você quizer quando for cancelado End If