Graymalkin

Vejamos: a propriedade Value do OptionButton define se ele está marcado ou não, e a propriedade Caption define a legenda que aparecerá nele. Portanto, se temos na variável "profissão" o nome da profissão que foi escolhida na listbox, bastará usar o If para verificar se a legenda do(s) OptionButton(s) existente(s) é igual a mesma. Por exemplo: if Option1.Caption=profissão then Option1.Value = True elseif Option2.Caption=profissão then Option2.Value = True elseif Option3.Caption=profissão then Option3.Value = True endif Existem ainda outras formas de se fazer isso (porém, para você que está começando, recomendo a alternativa apresentada acima). A título de curiosidade, apresento-as a seguir. Uma delas é criar um vetor de controles, dessa forma ao invés de Option1, Option2 e Option3, você teria Option1(0), Option1(1) e Option1(2). Dessa maneira é possível usar um For...Next para percorrer todos os índices de Option1. A outra forma é percorrer todos os controles do form, através da coleção Controls do mesmo. Para isso, pode-se usar um For Each...Next. Abraços, Graymalkin

Com aquele exemplo mesmo você consegue fazer isso. Basta fazer uma simples modificação. No caso, a função InStr() procura pelo caracter " " (um espaço) na string. Para o que você quer, basta que ela procure por " " (dois espaços), já que o nome e o sobrenome não estarão separados por dois espaços e sim por um, enquanto que a separação do nome para a profissão será separada por dois ou mais espaços. E para tirar os espaços, basta usar as funções LTrim(), RTrim() e/ou Trim(). Abraços, Graymalkin

Aí vai: MSFlexGrid1.RowHeight(0) = 500 MSFlexGrid1.ColWidth(0) = 1500 Aqueles 0s (zeros) passados se referem a linha e a coluna, respectivamente. Abraços, Graymalkin

Cara... tente se esforçar um pouco... a lógica da coisa já foi toda apresentada. De qualquer forma, experimente isso: sItem = List1.List(List1.ListIndex) pos = InStr(1, sItem, " ") If pos > 0 Then primeiro = Left(sItem, pos) segundo = Right(sItem, Len(sItem) - pos) Text1.Text = primeiro Text2.Text = segundo End If Abraços, Graymalkin

Para o caso da variável você pode usar os tipos Double, Single ou Currency. Se os seus forms só tiverem esses botões você pode fazer isso da seguinte maneira (coloque essa rotina em um módulo): public sub Desabilitar(byref f as form) for each b in f.controls if typeof b is commandbutton then b.enabled=false endif next b end sub Com essa rotina, bastará que você faça: Desabilitar form1 Desabilitar form2 Desabilitar form3 Onde basta substituir form1, form2 e form3 pelos nomes dos seus forms. Abraços, Graymalkin

Dependendo do código, você poderá executá-lo usando o Microsoft Script Control. Ou, se quiser usá-lo em um arquivo .vbs mesmo, use a função Shell(). Exemplo: Shell "c:\arquivo.vbs", vbnormal Abraços, Graymalkin

Seu VB é o 5? Acho que a função Split() só tem no VB6. Mas, sim, claro que tem outro jeito. Você pode percorrer a string até achar um espaço em branco e partir do mesmo jeito usando Mid(), Right() e/ou Left(). Abraços, Graymalkin

Veja esse exemplo. No evento Load do form coloque: List1.AddItem "Ramon Novato" Depois coloque isso no evento Click de um botão: item_selecionado = List1.List(List1.ListIndex) vetor = Split(item_selecionado, " ") MsgBox vetor(0) MsgBox vetor(1) Execute o programa, selecione a linha na listbox e clique no botão. Abraços, Graymalkin

Um "item duplo"? Você diz um item no qual os espaços definem os diferentes elementos dentro dele? Se for, você pode usar a função Split() para separá-los para um vetor e daí preencher a textbox do outro form com o primeiro elemento do vetor e percorrer as optionbuttons do form procurando pelo segundo valor do vetor. Qualquer dúvida, 'stamos aí. Abraços, Graymalkin

A PIL você acha aqui: http://www.pythonware.com/products/pil/index.htm Mas, para usá-la você precisa da linguagem Python, que você encontra aqui: http://www.python.org/ E para criar componentes COM em Python a fim de chamá-los a partir de outra linguagem você precisará também das Win32 Extensions que você encontra aqui: http://starship.python.net/crew/mhammond/win32/ E para transformar os scripts em DLL ou EXE você precisa do módulo py2exe, que você encontra aqui: http://sourceforge.net/projects/py2exe/ Abraços, Graymalkin

Sim, você pode usar outras linguagens em conjunto com o VB graças a tecnologia chamada COM (Common Object Model) e a capacidade de usar funções e rotinas em DLLs. Só repare bem que esse código que estiver em outra linguagem não será incorporado ao seu programa (como nosso amigo Aragorn já explicou que não dá pra fazer). No entanto, você poderá criar uma biblioteca (DLL ou EXE) em outra linguagem e utilizá-la no VB. A linguagem Python tem uma biblioteca chamada PIL (Python Imaging Library) que possibilita fazer diversas coisas com imagens, mas não sei se entendi bem o que você quer fazer com a imagem (incliná-la?). De qualquer forma, alguma API do Windows deve fazer isso (como a BitBlt, por exemplo). Se possível, dê um exemplo de uma imagem normal e de uma "inclinada", que posso tentar fazer algo. Abraços, Graymalkin

Utilize a função Hour() para obter as horas e Minute() para obter os minutos, daí faça as multiplicações necessárias. Abraços, Graymalkin

Não seria a API Sleep? Segue a declaração: Declare Sub Sleep Lib "kernel32" Alias "Sleep" (ByVal dwMilliseconds As Long) Exemplo: Sleep 10000 'Aguarda dez segundos Abraços, Graymalkin

Aqui tem uma explicação bem informal (com um exemplo) sobre esse assunto: http://scriptbrasil.com.br/forum/index.php?showtopic=12001 Abraços, Graymalkin

Um conceito bem técnico? Algo do tipo... "Uma linguagem interpretada, orientada a objetos, multi-plataforma, etc."? Graymalkin

Não deu certo o quê? Enviar o mesmo email para várias pessoas ou enviar qualquer email? Graymalkin

Eu só uso isso aí e dá certo (para Access). Para o MS SQL Server muda um pouco, mas não fica grande. Abraços, Graymalkin

Exemplo de uma função que retorna um vetor: Public Function Retorno() Dim ret(1 To 3) ret(1) = "teste" ret(2) = "teste2" ret(3) = "teste3" Retorno = ret End Function Abraços, Graymalkin

Para executar o prompt faça: Shell "command.com", vbNormalFocus Em relação a "Reiniciar em modo MS-DOS" repare que as versões mais recentes do Windows não possuem mais esse recurso, todavia a API que acredito que deveria fazer isso antigamente seria a ExitWindows(). Abraços, Graymalkin

Eu falei realmente sério... Abraços, Graymalkin

"PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=c:\arquivo.mdb" Gigante? De qualquer forma, essa é um discussão infrutífera. Abraços, Graymalkin

Willian, No caso dele leva aspas sim. A idéia é colocar um código em uma string e mandar executar como se fosse um código do programa. Imagine pode fazer algo assim (estou dando um exemplo em termos de pseudo-código): s1 = "a=2" s2 = "b=3" s3 = "msgbox a+b" Executar(s1) Executar(s2) Executar(s3) Abraços, Graymalkin

Na verdade, a "mais atual e moderna" só tem de graça o compilador (não o ambiente Visual Studio para você "desenhar" as janelinhas...). Para isso você tem de pagar (tem na Brasoftware). Abraços, Graymalkin

O "compilador para VB" é o produto Microsoft Visual Basic. A versão atual é a .NET que pode ser baixada de graça do site da Microsoft, porém a versão 6.0 ainda é bastante usada (mas não é grátis). Abraços, Graymalkin

Qual o problema apresentado? E por que você não usa o Access? É muito melhor, mesmo para iniciantes. Abraços, Graymalkin