lobismano
-
Total de itens
134 -
Registro em
-
Última visita
Tudo que lobismano postou
-
beleza. use o "ComboBox1.ListIndex + 1" para saber a posição do combo. At.
-
E ai beleza. Tenta isso. Office 7 Opções do Excel -> Mais Usados -> "Incluir este número de planilhas:" http://img607.imageshack.us/i/85296869.jpg/ http://img850.imageshack.us/i/90884216.jpg/ At.
-
Duvida, tem como executar javascript pelo link?
pergunta respondeu ao William Silva de lobismano em Ajax, JavaScript, XML, DOM
E ai beleza. tenta o evento onclick <a href="www.tvwill.xpg.com.br/index.htm" onclick="musica();">http://www.tvwill.xpg.com.br/index.htm</a> at. -
Desocultar textbox uma a uma ( novato )
pergunta respondeu ao pcmaniero de lobismano em Visual Basic
ok. espero que entenda. '///// variaveis ////// Dim obj As Variant Dim bool As Boolean '///// tipo boleano é 0 e 1, ou verdadeiro e falso bool = False '//// define o boleano como falso. For Each obj In UserForm1.Controls '//// carrega cada um dos controles do form para o objeto (textbox, buttons, etc.) If Mid(obj.Name, 1, 4) = "Text" Then '//// se os 4 digitos do nome do objeto for "Text" no caso Textbox If obj.Visible = False And bool = False Then '// se o textbox estiver invisivel e boleano for falso. obj.Visible = True '/// liga o textbox bool = True '/// define o boleano como verdadeiro. isso garante que o botao ligue apenas um textbox por vez. End If End If Next '/// fim do for each -
E ai beleza. Tenta algo assim. Dim char, vetor, aux char = "XR;SKNRT;2011;F7PSTE00-01;NR26;Ruptura apos solda;há 124;Ruptura da capa;320;180;kgf;1;1x/lote;-;2351;4831;4;(1,2,3);244.5" aux = "" vetor = Split(char, ";", -1, 1) For a = 0 To 17 If a < 16 Then aux = aux & vetor(a) & ";" Else aux = aux & "seuvalor" & ";" aux = aux & vetor(a + 2) a = 17 End If Next MsgBox aux at.
-
Desocultar textbox uma a uma ( novato )
pergunta respondeu ao pcmaniero de lobismano em Visual Basic
e ai beleza. Tenta isso. Dim obj As Variant Dim bool As Boolean bool = False For Each obj In UserForm1.Controls If Mid(obj.Name, 1, 4) = "Text" Then If obj.Visible = False And bool = False Then obj.Visible = True bool = True End If End If Next At. -
e ai beleza. tem um monte de formas pra fazer isto. segue uma. Sub acerta_valores() Dim coluna As String Dim colunas As Integer Dim inicio As Integer Dim fim As Integer coluna = UCase(InputBox("Informe a coluna desejada", "Dados")) inicio = InputBox("Informe a linha inicial", "Dados", 0) fim = InputBox("Informe a linha final", "Dados", 0) colunas = Asc(coluna) colunas = colunas - 64 If coluna <> "" And inicio <> 0 And fim <> 0 Then For a = inicio To fim Plan1.Cells(a, colunas).Value = Plan1.Cells(a, colunas).Value * 1 Next Else MsgBox "Existem campos em branco !!!" End If End Sub At
-
Exibir uma imagem a cada dia em javascript
pergunta respondeu ao Mayck May de lobismano em Ajax, JavaScript, XML, DOM
E ai beleza. Troca o "getDay()" por "getDate()" at. -
Opa beleza. Se entendi direito a caracteristica que você esta procurando é a TabIndex. Dim Objeto As Variant For Each Objeto In UserForm1.Controls MsgBox (Objeto.TabIndex) Next At.
-
E ai beleza. Tenta isso: ActiveSheet.PageSetup.PrintArea = "" At.
-
Testa ai. Sub pinta() Dim p As Worksheet Set p = Plan1 'define a planilha a ser usada For a = 1 To 65535 'qtd de linhas a percorrer For b = 1 To 255 'qtd de colunas a percorrer If p.Cells(a, B).Value Mod 2 <> 0 Then p.Cells(a, B).Interior.ColorIndex = 4 ' cor verde End If Next Next End Sub at.
-
Opa. Private Sub ComboBox1_Change() Dim IE As Object Set IE = CreateObject("InternetExplorer.Application") If ComboBox1.ListIndex > 0 Then IE.navigate (ComboBox1.Text) IE.Visible = True End If End Sub Private Sub UserForm_Activate() ComboBox1.AddItem "---" ComboBox1.AddItem "www.google.com.br" ComboBox1.AddItem "www.gmail.com" End Sub At.
-
(Resolvido) Desabilitar todas as checkbox menos as do grupo
pergunta respondeu ao dinohills de lobismano em Ajax, JavaScript, XML, DOM
Tá querendo moleza hein !!! Talves a solução abaixo não seja a melhor mais foi a que deu pra fazer agora. <script language="JavaScript"> function alerta(valor) { for (i=0;i<document.teste.elements.length;i++) { if(document.teste.elements[i].value != valor) { document.teste.elements[i].disabled = true; } } verifica(); } function verifica() { var i; count = 0; for (i=0;i<document.teste.elements.length;i++) { if (document.teste.elements[i].checked == false) { count = count + 1; } } if (count == i) { for (i=0;i<document.teste.elements.length;i++) { document.teste.elements[i].disabled = false; } } } </script> Espero ter ajudado. At. -
(Resolvido) Desabilitar todas as checkbox menos as do grupo
pergunta respondeu ao dinohills de lobismano em Ajax, JavaScript, XML, DOM
E ai beleza. Segue um teste que fiz. <html> <script language="JavaScript"> function alerta(valor) { for (i=0;i<document.teste.elements.length;i++) { if(document.teste.elements[i].value != valor) { document.teste.elements[i].disabled = true; } } } </script> <body> <form name="teste"> <table border = "1"> <tr> <td>Sel.</td> <td>Inc.</td> <td>Alt. / Exc.</td> <td>Nome</td> <td>Telefone</td> </tr> <tr> <td><input type="checkbox" name="ex" value="1" onClick="alerta(this.value);"></td> <td><input type="checkbox" name="in" value="1" onClick="alerta(this.value);"></td> <td><input type="checkbox" name="al" value="1" onClick="alerta(this.value);"></td> <td>Empresa 1</td> <td>11111111</td> </tr> <tr> <td><input type="checkbox" name="ex" value="2" onClick="alerta(this.value);"></td> <td><input type="checkbox" name="in" value="2" onClick="alerta(this.value);"></td> <td><input type="checkbox" name="al" value="2" onClick="alerta(this.value);"></td> <td>Empresa 2</td> <td>22222222</td> </tr> <tr> <td><input type="checkbox" name="ex" value="3" onClick="alerta(this.value);"></td> <td><input type="checkbox" name="in" value="3" onClick="alerta(this.value);"></td> <td><input type="checkbox" name="al" value="3" onClick="alerta(this.value);"></td> <td>Empresa 3</td> <td>33333333</td> </tr> </table> </form> -
E ai beleza. Private Sub ComboBox1_Change() TextBox1.Value = ComboBox1.Text End Sub Private Sub UserForm_Activate() Dim cont As Integer cont = 1 Do While Plan1.Cells(cont, 1).Value <> "" ComboBox1.AddItem Plan1.Cells(cont, 1).Value cont = cont + 1 Loop End Sub at.
-
Apaga o texto da propriedade picture
-
Apenas Números e apenas letras no TextBox
pergunta respondeu ao Danleonhart de lobismano em Visual Basic
Amigo. Você está com a faca e o queijo na mão. E só dar um "Msgbox KeyAscii" antes do if descobrir qual o valor do "." e da "," e incluir no if. At. -
Amigo Acho que o problema é como você está carregando a variavel <%=id_valores%>. Se entendi direito ela está sendo passada vazia e por isso não deleta nada. Seu checkbox chama "deleta" e você tá passando um <%=id_valores%>, além disso ele não tem "value" o que é o mais importante pois nele que tem o valor que você quer deletar. At.
-
tenta isso. Dim deleta deleta = Replace(Request("deleta"),",","','") if deleta <> "" then SQL = "DELETE FROM TB_PRECOS_HCS WHERE id_valores IN ('" & deleta & "')" conn.execute SQL end if set deleta = nothing conn.close
-
E ai beleza. Insere labels e coloca o evento onclick nelas. <label onclick="java script:window.location = 'http://www.google.com/'">http://SERVIDOR.com</label> <label onclick="java script:window.location = 'http://www.google.com/'">http://SERVIDOR.com</label> <label onclick="java script:window.location = 'http://www.google.com/'">http://SERVIDOR.com</label> <label onclick="java script:window.location = 'http://www.google.com/'">http://SERVIDOR.com</label> <label onclick="java script:window.location = 'http://www.google.com/'">http://SERVIDOR.com</label> At.
-
(Resolvido) Submenu carregar fechado - Menu em Java
pergunta respondeu ao dianabreit de lobismano em Ajax, JavaScript, XML, DOM
E ai beleza. Não era para remover o script anterior e sim acrescentar o novo. <script type="text/javascript"> up_down = function(img,body) { if(img.src.indexOf("up") > -1) { img.src="arrow_down.gif"; document.getElementById(body).style.display = "none"; } else { img.src="arrow_up.gif"; document.getElementById(body).style.display = "block"; } }; function colapseall() { document.getElementById('menuBody').style.display = "none"; document.getElementById('menuBody1').style.display = "none"; } </script> Outra coisa, os dois links estão passando o mesmo 'menuBody1' sendo que o primeiro é 'menuBody' <span class="imagem"><img src="arrow_down.gif" onclick="up_down(this,'menuBody1');" alt="" title="" /></span> <span class="imagem"><img src="arrow_down.gif" onclick="up_down(this,'menuBody1');" alt="" title="" /></span> At. -
(Resolvido) Submenu carregar fechado - Menu em Java
pergunta respondeu ao dianabreit de lobismano em Ajax, JavaScript, XML, DOM
E ai beleza. Insere no no <body>. <body onload="colapseall();"> No <script> function colapseall() { document.getElementById('menuBody').style.display = "none"; document.getElementById('menuBody1').style.display = "none"; } e troca a imagem de "arrow_up.gif" para "arrow_down.gif" em: <span class="imagem"><img src="arrow_down.gif" onclick="up_down(this,'menuBody1');" alt="" title="" /></span> At. -
E ai beleza. <% login = "seu.nome@gmail.com" PosicaoDaArroba = inStr(login,"@") ValorAntesDaArroba = Mid(login,1,PosicaoDaArroba-1) response.write PosicaoDaArroba & "<p>" response.write ValorAntesDaArroba At. %>
-
e ai beleza. Use o "InStr" para identificar a posição da @ e depois o "Mid" para pegar o valor inicial até a @. at.
-
E ai beleza. Tenta isso. Private Sub CommandButton1_Click() Dim cont As Integer cont = 1 Do While Plan1.Cells(cont, 1).Value <> "" cont = cont + 1 Loop Plan1.Cells(cont, 1).Value = TextBox1.Text End Sub At.