|
|
Esta sección te permite ver todos los posts escritos por este usuario. Ten en cuenta que sólo puedes ver los posts escritos en zonas a las que tienes acceso en este momento.
Mensajes - luciano2
27
« en: Lunes 20 de Noviembre de 2006, 00:28 »
Hola, te paso una forma que me dijeron utilizando dos funciones mas, no es lo ideal pero funciona: ..saludos '********************* 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 GetWindowRect Lib "user32" (ByVal hwnd As Long, lpRect As Rect) As Long Private Declare Function GetParent Lib "user32" (ByVal hwnd As Long) As Long Private Declare Function SetParent Lib "user32" (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long Private Declare Function SetWindowsHookEx Lib "user32" Alias "SetWindowsHookExA" (ByVal idHook&, ByVal lpfn&, ByVal hmod&, ByVal dwThreadId&) As Long Private Declare Function UnhookWindowsHookEx Lib "user32" (ByVal hHook&) As Long Private Declare Function CreateWindowEx Lib "user32" Alias "CreateWindowExA" (ByVal dwExStyle As Long, ByVal lpClassName As String, ByVal lpWindowName As String, ByVal dwStyle As Long, ByVal X As Long, ByVal Y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hWndParent As Long, ByVal hMenu As Long, ByVal hInstance As Long, lpParam As Any) As Long Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long Private Type POINTAPI X As Long Y As Long End Type Private Declare Function WindowFromPoint Lib "user32" (ByVal xPoint As Long, ByVal yPoint As Long) As Long Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long Private Type Rect Left As Long Top As Long Right As Long Bottom As Long End Type Private Type CWPSTRUCT lParam As Long wParam As Long Message As Long hwnd As Long End Type Private MiaFormHandle As Long Const WM_MOVE = &H3 Const WM_SETCURSOR = &H20 Const WM_NCPAINT = &H85 Const WM_COMMAND = &H111 Const SWP_FRAMECHANGED = &H20 Const GWL_EXSTYLE = -20 Private WHook& Private ButtonHwnd As Long Public Sub Init(MiaForm As Form, TestoPulsante As String) MiaFormHandle = MiaForm.hwnd ButtonHwnd& = CreateWindowEx(0&, "Button", TestoPulsante, &H40000000, 50, 50, 14, 14, MiaFormHandle, 0&, App.hInstance, 0&) Call ShowWindow(ButtonHwnd&, 1) WHook = SetWindowsHookEx(4, AddressOf HookProc, 0, App.ThreadID) Call SetWindowLong(ButtonHwnd&, GWL_EXSTYLE, &H80) Call SetParent(ButtonHwnd&, GetParent(MiaFormHandle)) End Sub Public Sub Terminate() Call UnhookWindowsHookEx(WHook) Call SetParent(ButtonHwnd&, MiaFormHandle) End Sub Public Function HookProc&(ByVal nCode&, ByVal wParam&, Inf As CWPSTRUCT) Dim FormRect As Rect Static LastParam& If Inf.hwnd = ButtonHwnd& Then If Inf.Message = 533 Then Dim pt As POINTAPI, mwnd As Long GetCursorPos pt mwnd = WindowFromPoint(pt.X, pt.Y) If mwnd = Inf.hwnd Then Form1.cmdInTitlebar_Click End If End If Debug.Print Inf.Message If Inf.Message = WM_COMMAND Then ElseIf Inf.Message = WM_SETCURSOR Then LastParam = Inf.wParam End If ElseIf Inf.hwnd = MiaFormHandle Then If Inf.Message = WM_NCPAINT Or Inf.Message = WM_MOVE Then Call GetWindowRect(MiaFormHandle, FormRect) Call SetWindowPos(ButtonHwnd&, 0, FormRect.Right - 75, FormRect.Top + 6, 17, 14, SWP_FRAMECHANGED) End If End If End Function
-------------------------------------- Recursos visual basic, ocx, codigo fuente
28
« en: Sábado 11 de Noviembre de 2006, 23:48 »
ArKaNtOs Sos lo máximo  El único programa que conocía para hacer esto era Shareware, asi que me viene anillo al dedo. Ya lo probé y funciona muy bien saludos ---------------------- Recursos vb - ocx, tutoriales y codigo fuente
29
« en: Viernes 10 de Noviembre de 2006, 21:43 »
Eso es a lo que me referia: Set Objeto_Miclase = New ElModuloDeClase ..me falto el New ...saludos ----------------------- Recursos visual basic, ocx, código fuente
30
« en: Viernes 10 de Noviembre de 2006, 15:40 »
Hola, no entendi muy bien la cuestión, pero el error es por que no estas creando una instancia de la clase antes de poder usarla, por ejemplo debes hacer Set Objeto_Miclase = ElModuloDeClase Espero que sea eso salu2 ----------------------------------- Recursos visual basic, ocx y codigo fuente
31
« en: Jueves 9 de Noviembre de 2006, 02:04 »
Hola, si no sabes la unidad, se me ocurre que la unica es que primero obtengas todas las unidades de cd. Luego buscás dentro de cada una el archivo area.exe, cuando lo encuentra lo ejecutás. Otras cosa, es que si el ejecutabla tiene componentes ,ocx dll etc..que no están registrados en el sistema, el programa fallará. Se que hay un programa que fusiona los ejecutables con todos los archivos de dependencias sin necesidad de registrarse, incluisve el runtime,.. si me acuerdo el nombre te lo paso saludos http://www.recursosvisualbasic.com.ar
32
« en: Martes 7 de Noviembre de 2006, 19:29 »
Sitio con códigos y ejemplos en flash y Action script, referencia del lenguaje, manuales y otros recursos relacionados al diseño web Autor: Luciano http://www.recursosflash.com.ar/
33
« en: Viernes 3 de Noviembre de 2006, 19:58 »
Hola, me alegro que te sirva. Te comento por si no sabías, que esa función solo te va a servir para plataformas windows 2000 y xp, pero en win 98 y Me no funciona.  ...saludos --------------------------------------------- Recursos visual basic
34
« en: Jueves 2 de Noviembre de 2006, 18:31 »
Hola que tal, una idea, podes agregar un retardo con la función Timer en un while, do loop. por ejemplo: For Vueltas = 1 To 2 For Valor = Desde To Hasta Step Avance ' Sleep Retardo 'Si se requiere que el efecto sea mas pausado MakeWindowTransparent Form1.hWnd, Valor DoEvents Next Valor seg = Timer While Timer < seg + 3 DoEvents Wend Avance = -1 Desde = 250 Hasta = 0 Next Vueltas ..donde dice While Timer < seg + 3, cambia el 3 por los segundos saludos ---------------------------------- recursos visual basic, ocx y codigo fuente
35
« en: Viernes 27 de Octubre de 2006, 06:59 »
Hola que tal, a la funcion, pasale el valor 1 para el boton izquierdo o un 2 para el derecho, o ambas llamdas para los dos, por ejemplo: Coloca un timer y pega esto en el form: Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer Private Sub Form_Load() Timer1.Interval = 100 End Sub Private Sub Timer1_Timer() If GetAsyncKeyState(2) Then MsgBox "Click derecho" End If End Sub Si o si se necesita un Timer, ya que la idea de usar el api para lo que se supone que queres, es para interceptar el click fuera del programa, es decir en cualquier ventana de windows. sino no es necesario usar el api, con los eventos del form, o de los controles basta .. como te sugirieron ....saludos --------------------- Recursos visual basic - ocx, codigo fuente
37
« en: Martes 24 de Octubre de 2006, 16:09 »
Hola buscá algun ejemplo sobre el metodo FindItem del LV ...saludos ------------------------------------- RVB - Ocx y ejemplos Visual basic
38
« en: Domingo 22 de Octubre de 2006, 23:59 »
No te puedo decir mucho por que no tengo idea del tema, pero hay un control llamado mscomm (MsComm32.ocx) para recibir y enviar datos por el puerto serial, chequelo a ver si te sirve saludos ---------------------- Recursos visual basic - ejemplos - codigo fuente
39
« en: Sábado 7 de Octubre de 2006, 06:36 »
Muy bueno el ejemplo del zip ArKanTos  , ...me vino al pelo para una cosa que tenia que hacer .. muchas gracias saludos ----------------------------------------- Recursos visual basic - codigo fuente - ocx - Api
40
« en: Sábado 7 de Octubre de 2006, 06:30 »
Hola, no se mucho de esto pero te digo lo que se me ocurre. si la página es estática, un html común, y vos no tenés que interactuar con el servidor, es decir solo obtener la info de tal archivo, podés descargarlo a disco y analizarlo en busca de ese dato. si es por el otro lado, en el cual te tenes que conectar con el servidor para consultar datos, talves este enlace te oriente un poco: http://www.topxml.com/xml/learn/learnxml.s...rue#httprequestPd: si el archivo html lo genera una página dinámica, asp por ejemplo, que trae los datos de una base de datos access, tengo un ejemplo para conectarte desde visual basic a dicha base, tanto para leer como para escribir datos. No lo pongo acá porque tiene varios archivos, pero cualquier cosa deja el mail que te lo envio saludos -------------------------------------------------------- Recursos Visual basic
41
« en: Jueves 5 de Octubre de 2006, 12:44 »
La primer versión de wind 95 es de 16 bits. Pero tenes razón, luego salio la version OSR2 de 32 -------------------------------- Recursos visual basic - Api y ocx
42
« en: Lunes 2 de Octubre de 2006, 03:47 »
Hola, no estoy seguro si habrá alguna forma, pero creo que no se puede, ya que vb6 compila ejecutables para windows de 32 bits, win 98, me, 2000 xp. Win 95 es de 16 bits. No te sirve utilizar la versión 4 de vb que si compila para 16 bits?? Otra no se me ocurre ..saludos -------------------------------------- Recursos Visual basic - Ocx - Api - Código fuente
44
« en: Martes 26 de Septiembre de 2006, 16:38 »
45
« en: Jueves 21 de Septiembre de 2006, 06:50 »
46
« en: Martes 19 de Septiembre de 2006, 06:44 »
jeje estas de suerte, hace un mes tube que hacer lo mismo para poder arrastrar datos entr 2 lv te dejo el enlace donde lo colgue : Drag and drop Listview
47
« en: Martes 19 de Septiembre de 2006, 06:39 »
Hola, ya que estamos tiro otro activex para reproducir gif's que se llama marchoso, en google hay muchas paginas para descargarlo y es gratis saludos -------------------------- Recursos Visual basic - Ocx - Codigo fuente
48
« en: Martes 19 de Septiembre de 2006, 06:34 »
Hola, tengo un ejemplo que no es para nada complicado, utiliza asp y xml para acceder a una bd remota tanto para leer como grabar data. Creo que podrias adaptarla muy facilmente a sq Server No coloco el codigo en este post porque tiene archivos extras, los asp y otros, por eso mismo dejenme el correo asi les envio el zip salu2 --------------------------------- Recursos Visual Basic - Ocx - Codigo fuente
49
« en: Domingo 17 de Septiembre de 2006, 18:16 »
Hola, tengo un ejemplo que hace lo que estas intentando hacer, utiliza asp y Xml desde vb para conectarse a una bd remota y poder leer y escribir datos en la bd No coloco el codigo porque tiene como te dije algunos archivos, si te interesa avisa que te envio el zip con el ejemplo y deja tu correo saludos Recursos Visual Basic-----------------------------------
|
|
|
Mostrar Mensajes
