William Rodrigues

Salve.. Antes de mais nada, seja bem vindo ao fórum. Antes de postar cara, sempre faça uma busca e se não obter resultado fique a vontade para postar! Então, respondendo a sua pergunta... Use o Shell para isso cara... Exemplo: Shell "calc.exe", vbNormalFocus Espero que te ajude Abraços, William Rodrigues

Salve! Verifique o nome do formulário. Se for o formulário atual, basta informar: Me.Hide 'para apenas sumir o formulário, sem descarregá-lo da memória Me.Unload 'para descarregá-lo da memória Qualquer coisa é só postar cara Abraços, William Rodrigues

Salve! Não estou com o MySQL instalado aqui, mas pelo que me lembro... A função SUM funciona com o campo numerico. Veja um exemplo. Tabela Cod Num 1 10 2 30 3 15 Observe que tenho um campo de números e vou querer somá-los, Usando a instrução Select junto com a função SUM terei o que preciso. --> Select SUM(Num) as Total from Tabela Resultado: Total 55 Se tiver mais uma dúvida é só falar cara Abraços, William Rodrigues

Show de bola essa nova idéia!!! Vamos participar desse crescimento... Abraços, William Rodrigues

Segue uma ajudinha: Chat com Winsock Abraços, William Rodrigues

Posta lá em PHP isso cara, acho que eles podem te ajudar mais rápido Abraços, William Rodrigues

Salve... Seja bem vindo ao fórum! Em um módulo coloque: Public Declare Function SetWindowRgn Lib "user32" _ (ByVal hwnd As Long, ByVal hRgn As Long, _ ByVal bRedraw As Boolean) As Long Public Declare Function DeleteObject Lib "gdi32" _ (ByVal hObject As Long) As Long Public Declare Function ReleaseCapture Lib _ "user32" () As Long Public Declare Function SendMessage Lib "user32" _ Alias "SendMessageA" (ByVal hwnd As Long, _ ByVal wMsg As Long, ByVal wParam As Long, _ lParam As Any) As Long Private Declare Function CreateCompatibleDC Lib _ "gdi32" (ByVal hdc As Long) As Long Private Declare Function SelectObject Lib _ "gdi32" (ByVal hdc As Long, ByVal hObject _ As Long) As Long Private Declare Function GetObject Lib "gdi32" _ Alias "GetObjectA" (ByVal hObject As _ Long, ByVal nCount As Long, lpObject As _ Any) As Long Private Declare Function CreateRectRgn Lib _ "gdi32" (ByVal X1 As Long, ByVal Y1 As _ Long, ByVal X2 As Long, ByVal Y2 As Long) _ As Long Private Declare Function CombineRgn Lib "gdi32" _ (ByVal hDestRgn As Long, ByVal hSrcRgn1 _ As Long, ByVal hSrcRgn2 As Long, ByVal _ nCombineMode As Long) As Long Private Declare Function DeleteDC Lib "gdi32" _ (ByVal hdc As Long) As Long Private Declare Function GetPixel Lib "gdi32" _ (ByVal hdc As Long, ByVal X As Long, _ ByVal Y As Long) As Long Public Const WM_NCLBUTTONDOWN As Long = &HA1 Public Const HTCAPTION As Long = 2 Private Type BITMAP bmType As Long bmWidth As Long bmHeight As Long bmWidthBytes As Long bmPlanes As Integer bmBitsPixel As Integer bmBits As Long End Type Public Function GetBitmapRegion(cPicture As _ StdPicture, cTransparent As Long) Dim hRgn As Long, tRgn As Long Dim X As Integer, Y As Integer, X0 As Integer Dim hdc As Long, BM As BITMAP 'Cria um novo DC, então procuramos a imagem hdc = CreateCompatibleDC(0) If hdc Then 'Coloca o novo DC na Imagem SelectObject hdc, cPicture 'Pega as dimensões e cria uma nova região 'de retangulo GetObject cPicture, Len(BM), BM hRgn = CreateRectRgn(0, 0, BM.bmWidth, BM._ bmHeight) 'Inicia procurando a imagem de cima para 'baixo For Y = 0 To BM.bmHeight For X = 0 To BM.bmWidth 'Procura uma linha de píxeis não 'transparentes While X <= BM.bmWidth And GetPixel(hdc, _ X, Y) <> cTransparent X = X + 1 Wend 'Marca o Início da linha de píxeis não 'transparentes X0 = X 'Procura uma linha com Píxeis 'transparentes While X <= BM.bmWidth And GetPixel(hdc, _ X, Y) = cTransparent X = X + 1 Wend 'Cria uma nova região que corresponda à 'linha dos píxeis transparentes e então 'remove ele da região principal If X0 < X Then tRgn = CreateRectRgn(X0, Y, X, Y + 1) CombineRgn hRgn, hRgn, tRgn, 4 'Libera a memória usada para a nova 'região temporária DeleteObject tRgn End If Next X Next Y 'Volta ao endereço de memória da imagem pronta GetBitmapRegion = hRgn 'Libera memória apagando a imagem DeleteObject SelectObject(hdc, cPicture) End If 'Libera memória apagando o DC criado DeleteDC hdc End Function Agora, coloque a imagem no Picture do Form e adicione esse código no Form_Load: Private Sub Form_Load() Dim hRgn As Long If hRgn Then DeleteObject hRgn hRgn = GetBitmapRegion(Me.Picture, vbBlack) SetWindowRgn Me.hwnd, hRgn, True End Sub Abraços, William Rodrigues

Faça uma busca aqui no fórum sobre SystemTray Abraços, William Rodrigues

Salve! Desculpe a demora da minha resposta, ando meio ocupado! Segue: Private Sub List1_Click() List2.Selected(List1.ListIndex) = True List3.Selected(List1.ListIndex) = True End Sub Abraços, William Rodrigues

Salve brother... Dê uma olhadinha nesses tutos: Código de Barras I Código de Barras II Te aconselho a dar uma olhadinha na nossa lista de sites também! Abraços, William Rodrigues

Bom, não sei se posso vir e colocar o artigo aqui ou se tenho que mandá-lo ao Diraol, então vou postar aqui qualquer coisa você dá uma arrumadinha Diraol Novo HD de 500GB em 3,5 polegadas! Abraços, William Rodrigues

Segue: "Driver={SQL Server};Server=NOMEDOSERVIDOR;DataBase=NOMEDOBANCODEDADOS; Uid=USUARIO;Pwd=SENHA;" Abraços, William Rodrigues

Salve brother... Bom, primeiramente com relação ao valor em que você deve cobrar. Aconselho a ler esse artigo que irá te ajudar um pouco. Com relação a nota do site, vou mover o seu post para a área de Avaliação de Trabalhos que lá eles avaliaram seu serviço. Boa Sorte!!! Abraços, William Rodrigues

Mostre-nos a maneira que você está fazendo Guest Abraços, William Rodrigues

Server para a construção de programas brother! Abraços, William Rodrigues

Brother... Faça uma busca aqui no fórum que você verá alguns posts que irão te ajudar Abraços, William Rodrigues

Não.. O Python também pode ser desenvolvido em Windows, veja o PythonWin nesse Link Abraços, William Rodrigues

Tem suas partes certas... Ambas as linguagens podem acessar qualquer um dos banco de dados citado. Veja: ASP --> Access, MySQL e SQL Server PHP --> Access, MySQL e SQL Server Vai da necessidade de cada um! Abraços, William Rodrigues

Æ brother... Já estou te ajudando nesse Link Abraços, William Rodrigues

Denada... Eu que agradeço a paciência com relação a minha situação. Abraços, William Rodrigues

Salve brother... Dê uma olhadinha nesse código: Dim c As Control For Each c In Me.Controls If TypeOf c Is TextBox Then c.Text = "" ElseIf TypeOf c Is ComboBox Then c.Text = "" End If Next Acho que pode te ajudar Abraços, William Rodrigues

Brother... Você tem instalado o driver ODBC do MySQL? PS: Valeu pela paciência de ter esperado! Abraços, William Rodrigues

hehehe.. Beleza, precisando estamos æ Abraços, William Rodrigues

RodrigoCurvello, faça uma busca aqui no fórum que você terá os conceitos necessários para se criar um ótimo pacote de instalação usando as melhores ferramentas disponíveis. Abraços, William Rodrigues

Estamos aí prá isso! Não brother, não é necessário mais nada. Abraços, William Rodrigues