Ozi
-
Total de itens
32 -
Registro em
-
Última visita
Posts postados por Ozi
-
-
Oi Gente, Gostaria de Saber como faço pra ligar e desligar as entradas de audio no mixer do windows via VB, me refiro as entradas de Linha, Mic da placa de Som... Se alguém souber me ajude por favor. Obrigado
-
Olá Turma! To com o seguinte problema:
Tenho um Form em html com um Botão Enviar e gostaria que ao clicar nesse botão uma pagina de confirmação fosse carregada. até aqui tudo bem! só que eu queria que essa pagina abrisse em uma janela popup. alguém pode postar um codigo que faça isso? Desculpem, sou iniciante...
Abraços a todos!!!
-
Olá Galera! É isso mesmo Greymalkin, Gostaria de Listar os nomes dos Arqs e baseado nos nomes eu inserir novos menus de acesso automaticamente a essas traduções de acordo com os arqs existentes. Vou dar uma procurada nessa função DIR() aqui no Forum, mas Valeu mesmo a força galera!
Abraços do OZI.
-
Ajuda aee pessoal!!!
-
Olá Galera, To querendo colocar no meu prog aquela função de Escolha de Idioma onde o usuario escolhe no menu idiomas o seu favorito(Portugues, Ingles etc...) O problema é que eu já criei os arqs.lng contendo as traduções e que fica na pasta Idiomas do meu Aplicativo só que eu queria que O programa Detectasse esses arqs.lng e adcionasse (em runtime) os menus para os respectivos idiomas de acordo com os arqs. lng existentes na pasta Idiomas Tipo: se depois eu acrescenasse um arq. alemao.lng na pasta Idiomas o prog incluisse também um menu para o idioma 'alemão'
Se alguém tiver um exemplo de como fazer isso eu ficarei muito agradecido.
Abraços para a Galera.
-
Valeu Graymalkin! Obrigado pela força!!!
-
Olá Galera, Tudo bem?
Sei a função SHELL serve para abrir um EXE. Gostaria de saber se alguém sabe como em faço pra fechar atraves do meu prog um executavel que esteja aberto no PC, tipo: Pelo meu Prog eu fechar o Internet Explorer por exemplo!
Agradeço a colaboração!!!
-
Olá, Folks!
estou meio sumido do forum, prq estou meio sem tempo. É o seguinte:
Queria criar um progminha que toque WAV ou MP3, mas gostaria que nele eu podesse (criar e salvar playlists que pedessem ser carregados com as musicas q foram salvas nestes playlists), mas não sei como fazer isso. Se alguém poder ajudar postando um exemplo sobre os playlists, serei grato.
Abraços de Ozi a todos to forum.
-
alguém sb cm fazer pra detectar pression. de tecla usando api sem q o prog esteja com o foco(es 2º plano)? alg pde me dar uma força?
-
Valeu a intenção guest, mas assim fica na mesma. neste caso o prog só detectaria o pressionamento da tecla "D" mas eu qria o seguinte: se o usuario presiona "a" o sistema avisa que ele pressionou "a" mas se ele pressiona "h" tb é avisado q pressiono "h" e assim com todas as teclas do Teclado. Obs. gostaria que esse cod. detectase o pressionamento mesmo sem q o prog esteja com o foco. você sabe como fazer isso?
Abraços!!!
-
Salve Galera! Seguinte,
num post antigo perguntei sobre como detectar o pressionamento das teclas, o Greymalkin ate me deu a dica das APIs GetAsyncKeyState, GetKeyboardState ou GetKeyState. beleza, como não tenho experiencia com APIs até achei un ex. na net, mas o problema e que este exemplo só detecta a tecla ESC e eu queria q pegasse qualquer tcla que fosse pressionada e informasse ao usuario. abaixo o cod. que peguei na net:
Se alguém souber como fazer a modificação eu agradeço.
------------------------------------------------------------------------
Private Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Integer
Private Const VK_ESCAPE = &H1B
Private Const VK_KEYDOWN As Long = -128
Private Const VK2_KEYDOWN As Long = -127
Dim continue As Boolean
Private Sub Form_Load()
Dim key As Long
Me.Show
continue = True
Do While continue
key = GetKeyState(VK_ESCAPE)
If key = VK_KEYDOWN Or key = VK2_KEYDOWN Then
If Not Me.Caption = "ESC is pressed" Then
Me.Caption = "ESC is pressed"
End If
Else
If Not Me.Caption = "ESC is not pressed" Then
Me.Caption = "ESC is not pressed"
End If
End If
DoEvents
Loop
End Sub
-
Valeu colega! tópico encerrado! Obrigado.
Abraçussss
-
Aí cara, não consegui usar essa função Replace pra tirar as "/" da data. você pdria postar um ex? É q não tenho muita exp. em vb ainda
Obrigado, Abração brother!
-
Valeu! mas, só que eu precisava colocar em varData a data em que o exec. foi criado mas, sem as "/". tipo ao invés de 05/05/2005 fosse 05052005. como fazer isso? E o que faz essa linha?
Debug.Print varNome, varTamanho, varData
Até mais!!! Valeu a Força.
-
Grande Greymalkin! Sempre socorrendo a galera. Hehehe!
Valeu cara, mas você pode me dar um ex d como usar essa função?
Tipo, eu qeria botar isso em variaveis pra eu usá depois, tipo assim:
------------------------------
dim varNome as string
dim varTamanho as integer
dim varData as Date
varNome= App.Path & "nome do meu exe"
varTamanho= FileLen(nome do meu exe)
varData=FileDateTime(nome do meu exe)
------------------------------
Ve aí se funciona! Pode me dar um help em cima disso?
é q eu to no trampo e só uso o vb em casa no fim de semana! hehehe
Abraços brother!!!
-
Help galera!
Seguinte, Quero indicar um executavel pr meu prog e queria q ele pegasse o nome, o tamanho em kb e a data em que foi criado. alg sabe como fazer?
Abraços!!!
Ozi
-
FALOU SENSHI! Agora deu Certo aqui.
Abraços pra vc, pro Dhyeggo e pra todo mundo do forum. ;-)
-
você tinha razão quando disse q nca viu algo assim. o prblm era q a fonte tinha um none de arq. ex: minisystm.ttf mas no vb ela aparece como msystem, como eu procurava por minisystm, não achava nunca, hehehe. Mas valeu a força ae cara.
um abração pro cë e todos do forum.
----Ozi----
-
Dë uma ajudinha aí pessoal!!!
-
Olá Greymalkin, Abraços!
Sim, Em qualquer editor de texto ou de imagem ela aparece, menos no vb.
Quando eu seleciono o label e clico na propriedade font abre a tela de formatação da fonte como no word onde posso seleciotar tipo, tamanho e tipo mas o tipo que eu quero não aparece na lista.
Se poder ajudar aí cara, eu agradeço.
-
Dá uma ajudinha aí pessoal!!!
-
Olá pesuaw! sou novo aqí. Dá uma forcinha aí!
Seguinte, no frame superior do meu Site coloquei um mecanismo de busca (Search) só q quando clico em ok, ao invés da busca abrir no frame principal ela abre no frade dos links à esquerda. aí vai o codigo que usei. se alguém souber modifique o codigo pra mim. per favore.
<table border="0" width="100%" cellpadding="0" cellspacing="0">
<tr>
<td width="100%">
<table border="0" cellpadding="0" cellspacing="0" width="100%" height="68">
<tr>
<td width="21%" height="68"><img border="0" src="mylogo.jpg" align="left" width="162" height="68"></td>
<td width="52%" height="68">
<p align="center"></td>
<td width="27%" height="68">
<table border="0" width="222" height="7">
<tr>
<td width="214" height="1">
<form name="search" id="search" target="main" method="get" action="http://search.MSN.com/results.asp">
<font face="arial" size="2"><strong>Procure
<font color="#ff0000">Aqui:</font></strong></font><br>
<input type="text" id="q" size="18" maxlength="251" name="q" vcard_name="SearchText">
<input type="submit" value="Search" name="B1"><input type="hidden" name="FORM" value="FRNT"><input type="hidden" name="un" value="doc"><input type="hidden" name="v" value="1">
</form>
</td>
</tr>
</table>
------------------------------------------------------------------
Abraços -----Ozi----- oziel2005@ig.com.br
-
Olá pessoal, é o seguinte:
Tö fazendo uma agendinha com um estilo calculadora e queria usar uma fonte específica que baixei na net para informar hora e dta no painel. bem o problema é que eu instalei a fonte na pasta fonts do windows mas msmo assim não consigo aclá-la na propriedade font do textbox no vb.
algem sabe porque? e se tem um jeito de eu usar essa fonte? se poder me ajudar postando um Ex. fico grato.
Abraços a todos do Forum --- Ozi ---
-
Olá Brother, tö postando de novo porque meu login não saiu da otra veiz!
Aë colega, desculpe a falha. Só depois de ter um tempinho pra analizar melhor as coisas é q percebi o erro.
troque a função <and> pela <or> dessa vez vai funcionar. eu testei em casa antes, só pra te passar.
Ex.
Private Sub txtExemplo_KeyPress(KeyAscii As Integer)
If KeyAscii <= 48 or KeyAscii >= 57 Then
KeyAscii = 0
End If
End Sub
me retorna se funcionar pra agente o tópico encerrar
abraços --Ozi--
Lig/desl Entrada Do Audio
em Visual Basic
Postado
Ajudem aí por Favor, so preciso controlar o volume e ativar/desativar as entradas de Mic e Entrada Aux. do Controle de Volume do WINDOWS pelo VB alguém Sabe como fazer?