Graymalkin

Sim, o VB.NET (e o 2005) tem muito mais controles já por padrão (ou seja, não é necessário ficar adicionando OCXs). E o visual dele é normal, já que ele tem que seguir o padrão do sistema operacional. Fora isso, houveram mudanças na própria linguagem. Todas as variáveis devem ser declaradas, todos os tipos devem ser corretamente convertidos, orientação a objetos, atribuição de valores a variáveis na mesma linha de declaração, operadores como +=, -=, etc., todos as matrizes tem seu índice inicial como 0 (não há como mudar isso), Type foi trocado por Structure, Property Get e Property Let ficam numa rotina só, entre outras coisas. Abraços, Graymalkin

Talvez haja alguma chave para rodar o MDAC de forma silenciosa, mas não sei informar. Geralmente eu instalo ele separadamente ou coloco ele para ser executado (pelo InnoSetup) na hora da instalação. Abraços, Graymalkin

Em todos? E é ela realmente que é usada no projeto? E, você usa o ADO DataControl? Abraços, Graymalkin

Poderia ser assim: If (Text1.Text = "User1" AND Text2.Text = "pass1") Or (Text1.Text = "User2" And Text2.Text = "pass2") And Combo2.Text = "Admin" Then Não? Abraços, Graymalkin

Faça o seguinte, instale uma versão do MDAC tanto no computador que gera o programa (marque-a e compile novamente o programa) quanto nas estações. O MDAC escolhido pelo PDW é o 2.1, porém você pode estar usando outro. Você pode encontrar o MDAC 2.6 ou 2.7 (não me recordo agora) aqui: http://www.graymalkin.globalhosts.com.br/data.asp Abraços, Graymalkin

Olá pessoal, Tenho suporte a ASP.NET no meu serviço de hospedagem (Globalhosts), porém não sei como usá-lo. Criei uma página simples no Visual Studio .NET e ela roda perfeitamente aqui no IIS do XP, porém não sei como fazer para enviar para o site. Não há suporte às extensões do FrontPage, por isso não tenho a opção de enviar pelo VS.NET. No servidor FTP que acesso para enviar minhas páginas, foi criada uma pasta chamada "aspnet_client" após a ativação do serviço, porém não adiantou colocar a página aspx e a DLL criada (mandei fazer um cópia do projeto, só com os arquivos realmente necessário) dentro da mesma. Alguém pode me dar uma luz? Desde já, agradeço a atenção. Graymalkin

Verifique a versão instalada no MDAC (Microsoft Data Access Components). Abraços, Graymalkin

A maneira mais simples de se fazer isso é usar um form MDI (aquele que pode ter outras janelas dentro) e abrir o determinado form dentro dele. Por si só, ele terá as barras de rolagem. A outra maneira é alterar as propriedades Top e Left de todos os controles quando houve uma alteração no valor de uma HScroll e de uma VScroll (mas não acho isso muito prático ou legal). Abraços, Graymalkin

A última mesmo é o VB.NET. É praticamente igual ao VB.NET, que é o sucessor atual do VB6. Não há, pelo menos no sentido prático, indicações que levem a crer que o VB6 e o VB.NET sejam produtos diferentes. Eles são a mesma coisa, a linguagem de programação Visual Basic, porém uma versão anterior e uma posterior (assim como você tem o Word 97, Word 2000, Word XP e Word 2003, e todos não deixam de ser Word). Abraços, Graymalkin

Que eu saiba não tem como mudar isso. Até porque não há uma maneira de mudar a altura de uma linha (o tamanho é definido de acordo com a fonte), portanto não ficaria muito legal fazer isso. Abraços, Graymalkin

Existe a API GetDriveType() à qual você fornece uma letra de unidade e ela te retorna o tipo. Se o valor retornado for 5 é porque se trata de uma unidade de CD-ROM. Dá uma olhada no exemplo do API-Guide (www.mentalis.org). Abraços, Graymalkin

O que você precisa é de um MDI form (Multiple Document Interface). Inicie um projeto, remova o form que já vem por padrão, e vá na opção "Project" e escolha "Add MDI Form". Após isso, adicione outros forms (comuns, não MDI) e mude suas propriedades MDIChild para True. Após isso, é só chamar os forms normalmente. Abraços, Graymalkin

Dê uma olhada nesse tópico: http://scriptbrasil.com.br/forum/index.php?showtopic=20687 E, como o nosso brother William (nosso moderador) sempre diz: se cadastra aí e contribua com o crescimento da nossa comunidade. Abraços, Graymalkin

Sim, mas só a partir do Windows 2000 (XP, 2003, etc.). No caso do VB.NET, basta alterar a propriedade Opacity. No caso do VB6, você pode usar o seguinte (coloque esse código todo em um módulo e use a rotina ChangeTransparency, passando a propriedade hWnd do form e o nível de transparência [de 0 a 255]): Private Const GWL_EXSTYLE = (-20) Private Const WS_EX_LAYERED = &H80000 Private Const WS_EX_TRANSPARENT = &H20& Private Const LWA_ALPHA = &H2& Private Const SWP_HIDEWINDOW = &H80 Private Const SWP_SHOWWINDOW = &H40 Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long Private Declare Function SetLayeredWindowAttributes Lib "user32" (ByVal hwnd As Long, ByVal crey As Byte, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long Private Declare Function UpdateWindow Lib "user32" (ByVal hwnd As Long) As Long ' Alpha blending related Private Type rBlendProps tBlendOp As Byte tBlendOptions As Byte tBlendAmount As Byte tAlphaType As Byte End Type Private Declare Function AlphaBlend Lib "msimg32" (ByVal hDestDC As Long, _ ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, _ ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal widthSrc As Long, _ ByVal heightSrc As Long, ByVal blendFunct As Long) As Boolean Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long) Public Sub ChangeTransparency(ByVal LhWnd As Long, ByVal bLevel As Byte) Dim lOldStyle As Long If (LhWnd <> 0) Then lOldStyle = GetWindowLong(LhWnd, GWL_EXSTYLE) SetWindowLong LhWnd, GWL_EXSTYLE, lOldStyle Or WS_EX_LAYERED SetLayeredWindowAttributes LhWnd, 0, bLevel, LWA_ALPHA UpdateWindow LhWnd End If End Sub Abraços, Graymalkin

Não sei se seria bem essa idéia, mas pensei no seguinte: Public Sub AjustarBotões(ByRef f As Form) Dim b As Control For Each b In Me.Controls If TypeOf b Is CommandButton Then If b.Width + b.Left > f.Width Then b.Left = 0 b.Top = b.Top + b.Height End If End If Next b End Sub Private Sub Form_Resize() AjustarBotões Me End Sub Observe que a primeira rotina (AjustarBotões) pode ficar em um módulo (para que seja visível aos outros forms) e que ela é chamada no evento Resize do form. Ah, e pensei apenas na hipótese da tela ser menor (ou seja, ele vai dispor diferentemente somente se eles não couberem na tela). Abraços, Graymalkin

Dê uma olhada nesse tópico: http://scriptbrasil.com.br/forum/index.php?showtopic=25441 Abraços, Graymalkin

Não exatamente, mas você pode percorrer todos os objetos de um form ajustando uma determinada propriedade (ou mais) para um determinado valor (ou mais), através da coleção Controls do mesmo. Abraços, Graymalkin

Mas, é assim mesmo que se aprende: tentando. E quanto à sua pergunta, acho que nem tanto. Se não me engano, foi a primeira coisa que fiz (justamente por ser a mais fácil ), depois parti para as funções, daí tentei fazer o If ( ), mas tive que primeiro fazer desenvolvimento de expressões ( isso foi bem complicadinho... em razão de eu não querer usar algo pronto para essa parte), daí voltei para o If e fiz o While depois, criei o tipo Booleano, voltei para o If e o While novamente porque não se podia ter dois Ifs ou dos Whiles aninhados ( ) e nem me lembro mais o que fiz depois... (aliás, acho que foi nessa ordem). Abraços, Graymalkin

Bem, você pode usar InStr() que retorna a posição de uma string em outra. Todavia, isso acarreta em um futuro problema, mas por hora é uma solução simples: Public Function compilar(ByVal strInstruc As String) Dim fac1 As Single, fac2 As Single Dim values(1) As Single Dim valor(2) As String If InStr(1, strInstruc, "add") > 0 Then valor(0) = Split(strInstruc, "(")(1) valor(1) = Split(valor(0), ",")(0) valor(2) = Split(Split(valor(0), ",")(1), ")")(0) fac1 = CSng(valor(1)) fac2 = CSng(valor(2)) Call Add(fac1, fac2) ElseIf InStr(1, strInstruc, "subt") > 0 Then valor(0) = Split(strInstruc, "(")(1) valor(1) = Split(valor(0), ",")(0) valor(2) = Split(Split(valor(0), ",")(1), ")")(0) fac1 = valor(1) fac2 = valor(2) Call subt(fac1, fac2) End If End Function Abraços, Graymalkin

Ô tempinho bão... talvez um dia você vá se recordar disso e querer voltar no tempo! (Pelo menos eu queria, e nem tem tanto tempo assim que essa fase passou!!! ) Abraços, Graymalkin

A função Mid() não aceita 0 como caracter inicial (deve-se começar do 1). Aliás, por que você está usando Mid() ali, se não está especificando o tamanho? Abraços, Graymalkin

Pelo menos os leitores de código-de-barras que usei eram do tipo que é ligado na porta do teclado, portanto ao passar o leitor sobre o código, o mesmo é "digitado" (como se fosse o teclado mesmo) e ao final é teclado também um ENTER. Portanto, se você colocar uma caixa de texto no form, pode pegar o código usando o evento KeyPress da mesma, exemplo: if keyascii=13 then msgbox "O código é: " & text1.text endif Abraços, Graymalkin

Bem, devem ter se enganado a respeito do nome. A ferramenta que você procura se chama Delphi. Abraços, Graymalkin

Sim, eu entendi. Apenas falei sobre o banco porque seria a única coisa que estaria, de certa forma, "ligando" os programas que o utilizam. Mas, é claro, existe uma maneira "manual" de se fazer isso. Abraços, Graymalkin

De fato, veja a declaração: Dim fac1, fac2 As Single Qual o tipo de "fac1"? A resposta é Variant e não Single. O correto seria: Dim fac1 As Single, fac2 As Single Felizmente, isso foi "corrigido" no VB.NET, daí pode-se criar várias variáveis especificando o tipo apenas uma vez. Um detalhe interessante nesse exemplo, é que funcionaria se o parâmetro fosse passado por valor (o VB converteria de acordo), enquanto que quando é passado por referência o tipo deve ser exatamente igual. Abraços, Graymalkin