Jump to content
Fórum Script Brasil

Strous

Membros
  • Posts

    13
  • Joined

  • Last visited

About Strous

  • Birthday 10/16/1990

Contatos

Perfil

  • Location
    Recife - PE
  • Interests
    Linguagens: Java, PHP, Visual Basic, C/C++, JavaScript, Ajax, DOM.<br /><br />Desenvolvimento: CSS, XHTML, HTML, Tableless.<br /><br />Criação: Photoshop, Fireworks.

Strous's Achievements

0

Reputation

  1. As dicas abaixo referem-se ao objeto Printer. Você não precisa fazer nenhuma referência para usá-lo no seu projeto. 1- Imprimir um texto em uma posição específica Private Sub Command1_Click() ' este exemplo irá imprimir Unicom na coordenada 100,300 Printer.CurrentX = 100 Printer.CurrentY = 300 Printer.Print "Unicom" ' O comando EndDoc envia o texto para a impressora Printer.EndDoc End Sub 2- Imprimir um texto com alinhamento específico Public Sub ImprimeTextoAlinhado(texto As String, Alignment As String) Select Case Alignment Case "Centro" Printer.CurrentX = (Printer.ScaleWidth - Printer.TextWidth(texto)) \ 2 Case "Esquerda" Printer.CurrentX = 0 Case "Direita" Printer.CurrentX = Printer.ScaleWidth - Printer.TextWidth(texto) End Select Printer.Print texto Printer.EndDoc End Sub Private Sub Command1_Click() 'Para escolher o alinhamento informe ("Centro", "Esquerda" ou "Direita") Call ImprimeTextoAlinhado("Macoratti", "Centro") End Sub 3- Imprimir uma linha Public Sub ImprimeLinha(Largura As Single) Printer.Line (0, Printer.CurrentY)-(Printer.ScaleWidth, Printer.CurrentY + largura), , BF Printer.EndDoc End Sub Private Sub Command1_Click() ' 40 indica a largura da linha ImprimeLinha (40) End Sub 4- Imprimir <_< :oo texto em um controle RichTextBox (não imprime figuras) Private Sub Command1_Click() Call RichTextBox1.SelPrint(Printer.hdc) End Sub 5- Imprimir um arquivo texto Para testar o código , no formulário inclua uma caixa de texto com a propriedade Multiline definida como True. Neste exemplo estou imprimindo o arquivo autoexec.bat: Private Sub Form_Load() Dim file As String file = "c:\autoexec.bat" Open file For Input As #1 Text1.Text = Input(LOF(1), #1) Close Printer.Print Text1.Text Printer.EndDoc End Sub 6- Verificar se a impressora esta instalada Public Function ImpressoraInstalada() As Boolean On Error Resume Next Dim strVerifica As String strVerifica = Printer.DeviceName If Err.Number Then ImpressoraInstalada = False Else ImpressoraInstalada = True End If End Function Private Sub Form_Load() MsgBox ImpressoraInstalada() End Sub 7- Definir a fonte da impressora Private Sub Command1_Click() Printer.FontName = "Arial" Printer.FontUnderline = False Printer.FontBold = False Printer.FontItalic = True Printer.FontSize = "30" Printer.Print "hello" Printer.EndDoc End Sub 8 - Imprimir um formulário Private Sub Form_Load() Form1.PrintForm End Sub 9 - Imprimir uma imagem O codigo abaixo imprime a imagem em Picture1.(Voce pode usar o controle image). Para imprimir na posição atual substitua as coordendas 0,0 por Printer.CurrentX, Printer.CurrentY. Para aumentar a largura e/ou o comprimento da imagem impressa altere os valores de Picture1.Width, Picture1.Height. Ex: Picture1.Width * 2, Picture1.Height * 2 ( imprime a imagem com o dobro do tamanho) Private Sub Command1_Click() ' Printer.PaintPicture Picture1.Picture, 0, 0, Picture1.Width, Picture1.Height Printer.EndDoc End Sub 10 - Imprimir um relatório feito no Microsoft Access Não esqueça de fazer a referência a biblioteca - Microsoft Access X.0 Object Library - no seu projeto. Você tem que abrir o banco de dados Access e pode escolher se deseja visualizar ou não a impressão. Private Sub Command1_Click() Dim ac As Access.Application Set ac = New Access.Application ac.OpenCurrentDatabase ("c:\teste\SeuBancoAccess.mdb") ' Para visualizar a impressão descomente a linha abaixo ' ac.Visible = True ' e substitua o valor acViewNormal por acViewPreview na linha de código abaixo para visualizar a impressora ac.DoCmd.OpenReport "Catalog", acViewNormal ' e exclua a linha a baixo para visualizar a impressão ac.CloseCurrentDatabase End Sub ible = True ' e substitua o valor acViewNormal por acViewPreview na linha de código abaixo para visualizar a impressora ac.DoCmd.OpenReport "Catalog", acViewNormal ' e exclua a linha a baixo para visualizar a impressão ac.CloseCurrentDatabase End Sub Créditos: VBMania Link: http://www.vbmania.com.br/vbmania/vbmdetail.php?varID=1226
  2. Olá, Vi a necessidade de alguns, no caso você e decidi postar um tutorial sobre o assunto, segue o link: http://scriptbrasil.com.br/forum/index.php?showtopic=104076 Abraços.
  3. Olá pessoal, já publicada neste site uma matéria com o mesmo objetivo, porém nos comentários surgiram muitas dúvidas, então resolvi fazer esse passo-a-passo para essa função. Vamos direto ao assunto: 1. Passo: Definir a imagem que vai ser o ícone 1) Selecione a imagem que você deseja que seja o ícone (geralmente é o logotipo do site); - No meu exemplo vou usar o nome fictício logotipo.jpg 2) Abra a imagem no programa de edição favorito e reduza ela para o tamanho 16x16 ou 32x32 (pixels) e salve; - Geralmente funciona com qualquer imagem, porém para não arriscar com os browsers e sistemas operacionais alternativos, use um desses tamanhos. 2. Passo: Transformando em ícone 3) No programa Paint do Windows, abra o arquivo logotipo.jg; - Nesta momento, o arquivo já está 32x32 pixels, então é só salvar 4) Vá em Salvar como... e coloque as seguites comfigurações: (nessa ordem) Salvar com tipo: Bitmap de 256 cores (*.bmp, *dib) Nome do arquivo: favicon.ico (sim o paint salva ele com o nome que você quiser) Botão Salvar OBS: Os itens 2, 3 e 4 podem ser feitos no mesmo programa de edição, porém alguns programas sempre adicionam por conta própria a extensão (gif, jpg, bmp) 3. Passo: O ícone na pasta correta 5) Coloque o arquivo na raiz do seu site; - Raiz do site é a pasta onde está o index.html do seu site, as vezes também é conhecido como Root. - No servidor, geralmente a raiz é a primeira pasta que aparece no ftp, eu digo geralmente, porque alguns dominios oferecem outros recursos além da hospedagem então a raiz do site vira a pasta public_html - A maioria dos navegadores (Firefox, Mozilla, Opera, Netscape e às vezes o Internet Explorer), aceita nativamente este arquivo, sem nenhuma outra informação, apenas bastando ele estar no mesmo diretório que o index.html da página. - Mas quem usa templates, frames (iframes, frameset) e outros pode não funcionar direito, então para suprir essa situação, vamos incluir um código na págima 4. Passo: Código para refernciar o ícone aos navegadores 6) No arquivo desejado (geralmente o index.html) inclua o código abaixo dentro das tags <head>; <link rel="shortcut icon" HREF="http://www.seusite.com.br/favicon.ico"> - As tag <head></head> (cabeçalho) definem muitas configurações da página, por esse motivo que o código deve ser colocado entre elas, conforme o exemplo abaixo: Exemplo: <html> <head> <link rel="shortcut icon" HREF="http://www.seusite.com.br/favicon.ico"> </head> <body> <h4>Adicione meu site nos seus favoritos</h4> </body> </html> OBS: Lembro a todos que nem sempre o ícone favorito funciona com o Interner Explorer, mas em todos os testes com firefox, mozzila e outros, funcionou sem apresentar qualquer problema. Créditos: luisx
  4. Vídeo-aulas de PHP - Prof.Guanabara
  5. Òtimo artigo Beraldo, isso aí é uma ótima referência para session. Abraços.
  6. Nesse tópico vou mostrar alguns links úteis para o seu estudo com HTML, XHTML e CSS, espero que seja de grande ajuda á você. Aprendizado http://www.ead.unicamp.br/minicurso/css/index.html http://www.ead.unicamp.br/minicurso/html/ http://pt-br.html.net/tutorials/html/ http://pt-br.html.net/tutorials/css/ http://www.maujor.com/ http://www.criarweb.com/html/ http://www.w3schools.com/html/default.asp http://www.w3schools.com/xhtml/default.asp http://www.w3schools.com/css/default.asp http://www.iped.com.br/ http://scriptbrasil.com.br/forum/index.php?showforum=5 http://www.tableless.com.br/ http://www.westciv.com/style_master/academ...rial/index.html Certificações http://www.w3schools.com/cert/default.asp Quizzes http://www.w3schools.com/html/html_quiz.asp http://www.w3schools.com/xhtml/xhtml_quiz.asp http://www.w3schools.com/css/css_quiz.asp Validação http://www.w3schools.com/site/site_validate.asp http://www.w3schools.com/site/site_validate.asp http://www.w3schools.com/site/site_validate.asp Softwares CSS Tab Designer AceHTML PRO Nvu Macromedia Dreamweaver MX Tem mais algum site? Mostre-nos aqui. Até Mais.
  7. Aqui está um dos ótimos limpadores, para dá uma pequena automatizada em seu windows: http://baixaki.ig.com.br/download/CCleaner.htm Até mais.
  8. Tudo bem Beraldo, pode fechar o tópico.
  9. Tá aí alguns que tenho no meu favoritos: www.ebookcult.com.br/acervo/cat.php?cat=COM www.guiadohardware.net/livros/ www.coladaweb.com/completos.htm Acho que só né ? Até mais.
  10. Está aí um programa que eu fiz quando comecei a mecher com DB em VB. Código comentado e programa frmPrincipal 'Programa de Cadastro v1.1.0 'Desenvolvido por Raphael Taveira Dim db As Database 'Declarando o objeto db que manuseará o banco de dados Dim também As Recordset 'Declarando o objeto também que manuseará a tabela Dim sexo As String 'Declarando a var sexo para armazenar o sexo do professor Dim botao As Integer 'Declarando a variável botao que armazenará o código do 'botão selecionado pelo usuário 1 = Cadastrar / 2 = Alterar / 3 = Excluir Private Sub cmdAlterar_Click() If (txtcic.Text = "") Then 'Se a caixa de texto CIC estiver vazia MsgBox "Digite um CIC", , "Aviso" 'Exibe a msg Digite um cic para o usuário txtcic.SetFocus 'Insere o foco na caixa do cic Exit Sub 'Sai da sub, não permitindo que o resto da programação 'desta sub seja executada End If 'fim do if 'Se a caixa de CIC estiver preenchida a programação abaixo será executada também.Seek "=", txtcic.Text 'Procura na tabela por um cic que seja igual ao digitado If também.NoMatch Then 'Se o cic não for encontrado MsgBox "CIC não econtrado" 'Exibe a mensagem CIC não encontrado p/ o usuário txtcic.SetFocus 'Insere o foco na caixa do cic Else 'Se o cic for encontrado na tabela pnlcampos.Enabled = True 'Habilita o painel dos campos txtcic.Text = também!cic 'Mostra no campo cic o conteúdo do cic da tabela txtnome.Text = também!nome 'Mostra no campo nome o conteudo nome da tabela pertinente ao cic atual If também!sexo = "Masculino" Then 'Se o campo sexo estiver com o valor Masculino optmf(0).Value = True 'Marca a opção Masculino sexo = "Masculino" 'Var sexo recebe Masculino Else optmf(1).Value = True 'Marca a opção Feminino sexo = "Feminino" 'Var sexo recebo Feminino End If 'fim do if cbosalario.Text = também!salario 'Mostre no combo salário o valor do salário da tabela cmdCadastrar.Enabled = False 'Desabilita o botão Cadastrar cmdAlterar.Enabled = False 'Desabilita o botão Alterar cmdExcluir.Enabled = False 'Desabilita o botão Excluir cmdConsultar.Enabled = False 'Desabilita o botão Consultar cmdConfirmar.Visible = True 'Deixa o botão Confirmar visivel cmdCancelar.Visible = True 'Deixa o botão Cancelar visivel txtnome.SetFocus 'Insere o foco na caixa de texto do nome botao = 2 'A variável botão recebe 1 para o VB saber que o usuário 'clicou no botão Cadastrar End If 'fim do if End Sub Private Sub cmdCadastrar_Click() If (txtcic.Text = "") Then 'Se a caixa de texto CIC estiver vazia MsgBox "Digite um CIC", , "Aviso" 'Exibe a msg Digite um cic para o usuário txtcic.SetFocus 'Insere o foco na caixa do cic Exit Sub 'Sai da sub, não permitindo que o resto da programação 'desta sub seja executada End If 'fim do if 'Se a caixa do CIC estiver preenchida a programação a baixo será execurada também.Seek "=", txtcic.Text 'Procura na tabela por um cic que seja igual ao digitado na caixa de cic If também.NoMatch Then 'Se o cic digitado não for encontrado pnlcampos.Enabled = True 'Habilita o painel de campos pnlchave.Enabled = False 'Desabilita o painel do cic cmdCadastrar.Enabled = False 'Desabilita o botão Cadastrar cmdAlterar.Enabled = False 'Desabilita o botão Alterar cmdExcluir.Enabled = False 'Desabilita o botão Excluir cmdConsultar.Enabled = False 'Desabilita o botão Consultar cmdConfirmar.Visible = True 'Deixa o botão Confirmar visivel cmdCancelar.Visible = True 'Deixa o botão Cancelar visivel txtnome.SetFocus 'Insere o foco na caixa de texto botao = 1 'A variável botão recebe 1 para o VB saber que o usuário 'clicou no botão Cadastrar Else 'Se o CIC digitado for encontrado na tabela MsgBox "Professor já cadastrado!", , "Aviso" 'Exibe a mensagem Professor já cadastrado ao usuário txtcic.Text = "" 'Limpa a caixa de cic txtcic.SetFocus 'Insere o foco na caixa do cic pnlchave.Enabled = True 'Habilita o painel do cic End If 'fim do if End Sub Private Sub cmdCancelar_Click() pnlchave.Enabled = True 'Habilita o painel do cic pnlcampos.Enabled = False 'Desabilita o painel dos campos cmdCadastrar.Enabled = True 'Habilita o botão Cadastrar cmdAlterar.Enabled = True 'Habilita o botão Alterar cmdExcluir.Enabled = True 'Habilita o botão excluir cmdConsultar.Enabled = True 'Habilita o botão Consultar txtcic.Text = "" 'Limpa a caixa de cic txtnome.Text = "" 'Limpa a caixa de nome optmf(0).Value = True sexo = "Masculino" 'Var sexo recebe Masculino cbosalario.Text = "" 'Limpa o combo de salario cmdConfirmar.Visible = False 'Deixa o botao COnfirmar invisivel cmdCancelar.Visible = False 'Deixa o botao Cancelar invisivel End Sub Private Sub cmdConfirmar_Click() Select Case botao Case 1 também.AddNew também!cic = txtcic.Text também!nome = txtnome.Text também!sexo = sexo também!salario = cbosalario.Text também.Update Case 2 também.Edit também!cic = txtcic.Text também!nome = txtnome.Text também!sexo = sexo também!salario = cbosalario.Text também.Update Case 3 também.Delete End Select 'fim do select cmdCancelar_Click 'Executa a programacao do botao Cancelar End Sub Private Sub cmdConsultar_Click() If (txtcic.Text = "") Then 'Se a caixa de texto CIC estiver vazia MsgBox "Digite um CIC", , "Aviso" 'Exibe a msg Digite um cic para o usuário txtcic.SetFocus 'Insere o foco na caixa do cic Exit Sub 'Sai da sub, não permitindo que o resto da programação 'desta sub seja executada End If 'fim do if 'Se a caixa de CIC estiver preenchida a programação abaixo será executada também.Seek "=", txtcic.Text 'Procura na tabela por um cic que seja igual ao digitado If também.NoMatch Then 'Se o cic não for encontrado MsgBox "CIC não econtrado" 'Exibe a mensagem CIC não encontrado p/ o usuário txtcic.SetFocus 'Insere o foco na caixa do cic Else 'Se o cic for encontrado na tabela pnlcampos.Enabled = True 'Habilita o painel dos campos txtcic.Text = também!cic 'Mostra no campo cic o conteúdo do cic da tabela txtnome.Text = também!nome 'Mostra no campo nome o conteudo nome da tabela pertinente ao cic atual If também!sexo = "Masculino" Then 'Se o campo sexo estiver com o valor Masculino optmf(0).Value = True 'Marca a opção Masculino sexo = "Masculino" 'Var sexo recebe Masculino Else optmf(1).Value = True 'Marca a opção Feminino sexo = "Feminino" 'Var sexo recebo Feminino End If 'fim do if cbosalario.Text = também!salario 'Mostre no combo salário o valor do salário da tabela cmdCadastrar.Enabled = False 'Desabilita o botão Cadastrar cmdAlterar.Enabled = False 'Desabilita o botão Alterar cmdExcluir.Enabled = False 'Desabilita o botão Excluir cmdConsultar.Enabled = False 'Desabilita o botão Consultar cmdOk.Visible = True 'Deixa o botão Ok visivel End If End Sub Private Sub cmdExcluir_Click() If (txtcic.Text = "") Then 'Se a caixa de texto CIC estiver vazia MsgBox "Digite um CIC", , "Aviso" 'Exibe a msg Digite um cic para o usuário txtcic.SetFocus 'Insere o foco na caixa do cic Exit Sub 'Sai da sub, não permitindo que o resto da programação 'desta sub seja executada End If 'fim do if 'Se a caixa de CIC estiver preenchida a programação abaixo será executada também.Seek "=", txtcic.Text 'Procura na tabela por um cic que seja igual ao digitado If também.NoMatch Then 'Se o cic não for encontrado MsgBox "CIC não econtrado" 'Exibe a mensagem CIC não encontrado p/ o usuário txtcic.SetFocus 'Insere o foco na caixa do cic Else 'Se o cic for encontrado na tabela pnlcampos.Enabled = True 'Habilita o painel dos campos txtcic.Text = também!cic 'Mostra no campo cic o conteúdo do cic da tabela txtnome.Text = também!nome 'Mostra no campo nome o conteúdo nome da tabela pertinente ao cic atual If também!sexo = "Masculino" Then 'Se o campo sexo estiver com o valor Masculino optmf(0).Value = True 'Marca a opção Masculino sexo = "Masculino" 'Var sexo recebe Masculino Else optmf(1).Value = True 'Marca a opção Feminino sexo = "Feminino" 'Var sexo recebo Feminino End If 'fim do if cbosalario.Text = também!salario 'Mostre no combo salário o valor do salário da tabela cmdCadastrar.Enabled = False 'Desabilita o botão Cadastrar cmdAlterar.Enabled = False 'Desabilita o botão Alterar cmdExcluir.Enabled = False 'Desabilita o botão Excluir cmdConsultar.Enabled = False 'Desabilita o botão Consultar cmdConfirmar.Visible = True 'Deixa o botao Confirmar visivel cmdCancelar.Visible = True 'Deixa o botao Cancelar visivel botao = 3 End If End Sub Private Sub cmdOK_Click() cmdCancelar_Click 'Executa a programação do botão cancelar cmdOk.Visible = False 'Deixa o botao Ok invisivel End Sub Private Sub creditos_Click() frmAbout.Show End Sub Private Sub Form_Load() Set db = OpenDatabase("C:univap.mdb") 'Abre o banco de dados, diga o destino do mesmo Set também = db.OpenRecordset("professores", dbOpenTable) 'Abre a tabela também.Index = "PrimaryKey" 'Seta a primary key como chave primária sexo = "Masculino" 'Sexo recebe Masculino End Sub Private Sub optmf_Click(Index As Integer, Value As Integer) Select Case Index 'Selecione conforme o índice do botão de opção selecionado Case 0 'Caso o botão seja o Masculino sexo = "Masculino" 'Armazene na variável sexo a palavra "Masculino" Case 1 'Caso o botão seja o Feminino sexo = "Feminino" 'Armazene na variável sexo a palavra "Feminino" End Select 'Fim do select End Sub Private Sub sair_Click() 'Pergunta ao usuário se ele realmente quer fechar o programa If MsgBox("Deseja realmente sair ?", vbYesNo, "Cadastro") = vbYes Then 'Se sim End 'Finaliza o programa Else 'Senão Exit Sub 'Sai da sub e não executa o resto da programação End If End Sub frmCreditos Private Sub cmdOK_Click() Unload Me End Sub Private Sub Form_Load() Me.Caption = "About " & App.Title lblVersion.Caption = "Version " & App.Major & "." & App.Minor & "." & App.Revision lblTitle.Caption = App.Title End Sub
  11. Olá, Bom gente, eu estava visualizando meus arquivos pessoais, e derrepente achei uma vídeo-aula que fala sobre Winsock, eu já tenho um breve conhecimento sobre Winsock e vou disponibilizar esse vídeo para vocês, segue o link para download: Download aqui Obrigado pela atenção.
  12. Olá, Notei que quando eu postei, no meu primeiro tópico, não visualizei os members icons, gostaria de saber, estão desativados?Quando vão ser novamente ativados? Obrigado pela atenção.
  13. Olá galera, meu primeiro post aqui, vou logo ajudar a galera, segue uma listinha de links que postei em outro fórum, não sei se já tem aí, mais aqui está: Aprendizado http://www.vb6.us/ http://www.vbmania.com.br/ http://vb.djkprojects.pl/vb/ http://www.macoratti.net/ http://www.vbbrasil.com.br/ http://msdn2.microsoft.com/pt-br/vbasic/default.aspx http://www.imasters.com.br/secao/visual_basic http://www.vbweb.com.br/ http://www.iped.com.br/cursos/imasters/programacao/vb-net/ http://www.vb2themax.com/ http://www.vbcity.com/ http://www.extreme-vb.net/ http://www.silicio.com.br/vb/ http://www.vbmagazine.com.br/ Softwares http://www.microsoft.com/brasil/msdn/expre...ic/default.aspx http://www.msdnbrasil.com.br/produtos/vstudio/ Códigos http://www.linhadecodigo.com.br/ http://www.freevbcode.com/ http://vbcode.com/ Espero ter ajudado.
×
×
  • Create New...