kkkiler

Bem, vamos la... 1° O computador tem 2 "áreas"(administrador,aluno) 2° Eu tenho que transferir um arquivo da área do aluno para a área do administrador(por processos normais não funciona, como o copy e o kill) 3° O computador está logado como aluno(obrigatoriamente). Eu pensei em algumas possíveis soluções... mas não faço a menor idéia de como se faça: 1°Por exemplo, daria para fazer um logof interno(a pessoa não vê o logof), logando como administrador, para transferir os arquivos do aluno para sua própria área?(administrador)Tenho certeza q da... so preciso saber como(fazer o logof normal eu sei, mas não é assim que eu quero) 2°Dar privilégios ao aluno temporariamente para fazer a transferência 3°Transformar o aluno em administrador " " " " " 4°Burlar o sistema que checa os privilégios (etc.....) Desde já agradeço pela atenção^^

Não quero desperdiçar um tópico inteiro pra tirar esta dúvida infeliz... Como é que faz aparecer uma caixa de mensagem com o item selecionado na combobox?! Eu tentei d tudo aqui e num funciona!! Veja minha última tentativa: Private Sub Form_Load() Combo1.AddItem "até", 0 Combo1.AddItem "oi", 1 Combo1.AddItem "eeee", 2 End Sub Private Sub Command1_Click() MsgBox Combo1.List(ListIndex) End Sub Eu usei comando por comando, por exemplo, o listindex mostra o número relativo ao item q eu selecionei... o list mostra o item q selecionou d acordo com o número q por entre parenteses... então pqq num funciona?!Tentei outras coisas também e num obtive sucesso...

Er... não. Desculpe, eu omiti um detalhe o qual achei desnecessário para a resolução do problema. São dois option button que devem ser selecionados, para que o botão seja habilitado.Entretanto, eu omiti que ao selecionar um dos option button, um combobox seria habilitado. Então, a ordem dos procedimentos seria assim:1°Selecione o primeiro option button 2° Selecione o segundo " ", ativando o combobox 3° Selecione um item do combobox, para finalmente ativar o botão. Eu resolvi esse problema colocando um frame dentro do outro, e depois usando o procedimento MouseMove para ativar o botão( Quando a pessoa seleciona um item do combobox, automaticamente o ponteiro do mouse passa pelo frame, ativando o botão ^^). Sim, funcionou, obrigado!! O engraçado é que do jeito que eu te mostrei que eu fiz com o excel(e não deu certo), eu fiz com o word, e funcionou :huh:

O tempo é relativo, meu caro... 4 horas pode ser pouco pra você, mas pra mim era muito, pois eu estava com muita pressa(resolvi o problema antes d você posta xD). Obrigado pela sua atenção à minha dúvida, da próxima vez eu espero, ok?Eu num sabia q você ia ficar brabo. Vo aproveita este tópico pra faz outra pergunta... você sabe como q desativa "menus" de outros programas? Exemplo: "Salvar como", "fechar","abrir" etc... +uma coisa... como eu faço ´pra criar um arquivo excel no vb e salvá-lo? Com um arquivo word deu certo, mas com excel num da... veja se o código ta certo: Private Sub Command1_Click() Dim Excel_VB As New Excel.Application Excel_VB.Workbooks.Add Excel_VB.Workbooks(Excel_VB.ActiveWorkbook).SaveAs "G:\oi.xls" Excel_VB.Quit End Sub Eu adicionei o excel la nas referências, então o problema não é isso... Desde já agradeço pela atenção

Não tem NINGUÉM que saiba?....

Dúvida simples.. Como eu faria para que um commandbutton só fosse ativo(enabled=true) se 2 de 4 option button estivessesem selecionados? (Ou seja, eu teria que usar frame para diferenciar duas duplas de optionbutton, a não ser que tenha outro jeito que eu não saiba, nesse caso, por favor, me ensinem). O botão necessariamente ficaria em um dos frames, e estes, pelo que eu saiba,funcionam independentemente. A dúvida é: Como eu faria pra verificar se dois dos 4 option button estão ativos? EDIT Por favor, se possível, uma solução que eu só use optionbutton mesmo(não checkbox, ou outros controles do tipo)

Acho que eu não me expressei bem... o que eu quis dizer, é que eu não tenho esse componente na lista para poder adicionar. Solução?

Olá a todos, vocês sabem onde eu posso arrumar o seguinte controle : Microsoft Data Bound Grid Control 5.0(SP3)? Achei q era pra vir junto com o vb

FOI MAL TINHA POSTADO O TÓPICO NA AREA ERRADA :mellow: apaguem o outro Bom, essa máscara é bem legal, ela aceita que o primeiro caracter seja "+" "-" "," ou números. Do segundo caracter em diante, aceita apenas números e uso de uma vírgula(não se foi digitado "+" ou -" ou "," no primeiro caracter) Pra falar a verdade, nem mesmo é uma máscara, você digita e apaga rapidao, você nem nota(so se segurar). objeto é sua caixa de texto. Só substituir. Private Sub MDE(objeto As Object) Dim i As Integer Dim virgula As Boolean For i = 2 To Len(objeto) If Mid(objeto, i, 1) = "." Then objeto = Left(objeto, Len(objeto) - 1) + "," SendKeys ("{end}") Beep Exit Sub End If If Asc(Mid(objeto, 1, 1)) = 44 And Asc(Mid(objeto, i, 1)) = 44 Then objeto = Left(objeto, Len(objeto) - 1) SendKeys ("{end}") Beep Exit Sub End If If Asc(Mid(objeto, 2, 1)) = 44 And (Asc(Mid(objeto, 1, 1)) = 43 Or Asc(Mid(objeto, 1, 1)) = 45 Or Asc(Mid(objeto, 1, 1)) = 44) Then objeto = Left(objeto, Len(objeto) - 1) SendKeys ("{end}") Beep Exit Sub End If If Asc(Mid(objeto, i, 1)) <> 8 And Asc(Mid(objeto, i, 1)) <> 44 And Asc(Mid(objeto, i, 1)) <> 46 And Asc(Mid(objeto, i, 1)) < 48 Or Asc(Mid(objeto, i, 1)) > 57 Then objeto = Left(objeto, Len(objeto) - 1) SendKeys ("{end}") Beep End If If Mid(objeto, i, 1) = "," Then If virgula = True Then objeto = Left(objeto, Len(objeto) - 1) SendKeys ("{end}") Beep End If virgula = True End If Next i If Len(objeto) = 1 Then For i = 1 To Len(objeto) If Mid(objeto, i, 1) = "." Then objeto = Left(objeto, Len(objeto) - 1) + "," SendKeys ("{end}") Beep Exit Sub End If If Asc(Mid(objeto, i, 1)) <> 8 And Asc(Mid(objeto, i, 1)) <> 43 And Asc(Mid(objeto, i, 1)) <> 45 And Asc(Mid(objeto, i, 1)) <> 46 And Asc(Mid(objeto, i, 1)) <> 44 And (Asc(Mid(objeto, i, 1)) < 48 Or Asc(Mid(objeto, i, 1)) > 57) Then objeto = Left(objeto, Len(objeto) - 1) SendKeys ("{end}") Beep End If Next i End If End Sub Espero que gostem. ----EDIT---- Arrumei uns errinhos