Beowulff
Membros-
Total de itens
12 -
Registro em
-
Última visita
Sobre Beowulff
- Data de Nascimento 26/04/1973
Contatos
-
MSN
beowulff@timnet.com
-
Website URL
http://
-
ICQ
0
Perfil
-
Location
São Paulo
Beowulff's Achievements
0
Reputação
-
Alguém sabe se é possivel e se for como faço, para utilizar um componente (dll) criado no VB.net em VB6?? Obrigado
-
Rafael, ai vai, é bem fácil..... FAtualizaClientes.TxtTelefone.Text = iif(isnull(Rs!Telefone),"",Rs!Telefone) isso vai fazer o valor se for NULL viraz EMPTY, ai não vai dar mais mensagem de erro. []´s Felippe
-
Andrea, vamu lá.... Select A.id, A.titulo, A.descricao, B.tipo from cdsefitas A left join tipos B on B.codigo = A.tipo where se quiser alguma condição coloque aki... []´s Felippe
-
Falae Passar parâmetos tem sim, pois você chama ele com essa sintax: Shell ("c:\teste\teste.exe par1,par2,par3") Agora receber é o problema, talvez uma saida seja o seu sistema externo gravar um arquivinho texto para o vb ler, ou algo parecido. []´s Felippe
-
Falae. Entaum no vb tem um comando sim, o próprio SHELL, ele executa outros aplicativos de dentro do VB. []´s Felippe
-
Olá. Andrea o erro provavelmente está ocorrendo pois você esta tentando dar update no campo ID que é auto numeração e não aceita UPDATE. []´s Felippe
-
Opa, faltou o maximizado, para você ocultar a barra de tarefas, só setando a mesma para auto ocultar se não não tem jeito ela fica lá sempre... []´s Felippe
-
Falae. Thomas é o seguinte, é um pouco trabalhoso, mais vamu lá. Fazer as seguintes declarações : Public Declare Function Shell_NotifyIcon Lib "shell32" Alias "Shell_NotifyIconA" (ByVal dwMessage As Long, pnid As NOTIFYICONDATA) As Boolean Public Type NOTIFYICONDATA cbSize As Long hwnd As Long uId As Long uFlags As Long uCallBackMessage As Long hIcon As Long szTip As String * 64 End Type Global nid As NOTIFYICONDATA Global Const NIM_ADD = &H0 Global Const NIM_MODIFY = &H1 Global Const NIM_DELETE = &H2 Global Const WM_MOUSEMOVE = &H200 Global Const NIF_MESSAGE = &H1 Global Const NIF_ICON = &H2 Global Const NIF_TIP = &H4 Global Const WM_LBUTTONDOWN = &H201 Criar as seguintes funções: Sub IconAdiciona(sTitulo As String, objForm As Object) nid.cbSize = Len(nid) nid.hwnd = objForm.hwnd nid.uId = vbNull nid.uFlags = NIF_ICON Or NIF_TIP Or NIF_MESSAGE nid.uCallBackMessage = WM_MOUSEMOVE nid.hIcon = objForm.Icon nid.szTip = sTitulo & vbNullChar Shell_NotifyIcon NIM_ADD, nid End Sub Sub IconDeleta() Shell_NotifyIcon NIM_DELETE, nid End Sub No Seu form colocar o seguintes códigos: Private Sub Form_Resize() If Me.WindowState = vbMinimized Then Call IconAdiciona("Horimetro", Me) Me.Hide End If End Sub Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) If Me.WindowState = vbMinimized Then If Button = 1 Then 'Volta ao normal Call IconDeleta Me.WindowState = vbNormal Me.Show End If End Sub Ufaaaaa, isso deve funcionar, note que foi colocado o código para quando você minimiza o seu formulário ele ir para o SystemTray (Barra de Tarefas), mais você pode mudar para quando clicar em um botão por exemplo. []´s Felippe
-
Olá. Andrea, a principio não tem nada errado, você só esta atualizando o campo ID sem necessidade, pois como você mesmo disse ele não é 'atualizavel', se voce puder mandar a estrutura da sua tabela e como você esta fazendo a conexão poderia ficar mais fácil de achar o problema. []´s Felippe
-
Falae. No sql você tem um comando chamado TOP que limita a qtde de registros retornados, fica alguma coisa assim: Select TOP 10 campo1, campo2 from tabela No Access funciona também. []´s Beowulff
-
Obrigado, acabei conseguindo com a API mesmo, só fazendo algumas poucas alterações na declaração, segue o exemplo: Declare Function ReleaseCapture Lib "user32" () As Integer Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As IntPtr, ByVal wMsg As Integer, ByVal wParam As Integer, ByVal lParam As Integer) As Integer Private Sub Logon_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseDown If e.Button = MouseButtons.Left Then ReleaseCapture() SendMessage(Me.Handle, WM_NCLBUTTONDOWN, HTCAPTION, 0) End If End Sub Esse funcionou corretamente.
-
Boa tarde, sou novo por aqui e espero que vocês possam me ajudar, estou querendo movimentar meu form, quando o usuário clica em qualquer parte dele, no VB6 era tranquilo, usava SendMessage e ReleaseCapture, só que estou utilizando o vb.net, alguém sabe como fazer ?? Obrigado Beowulff