|
|
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 - seba123neo
1
« en: Domingo 30 de Octubre de 2011, 22:54 »
Hola, que queres hacer exactamente ? mover el mouse ? si es asi, con algunas apis como SetCursorPos lo podes hacer.
2
« en: Sábado 29 de Octubre de 2011, 02:47 »
Hola, para que las dll te queden copiadas en el directorio de "release" debes decirle que te las copie, fijate en el "explorador de soluciones" ahi hay un nodo que dice "referencias" (para verlo tenes que activar la opcion arriba de mostrar archivos ocultos) y entonces ahi seleccionas la dll que quieras y le pones la propiedad "copia local" en "True" y cada ves que generes el .exe, en la carpeta release, te las va a copiar.
otra forma para no llevar dll, es cargarla como archivo de recursos y cargarlas en memoria y asi no tenes que llevar las dll ni crear instaladores.
saludos.
3
« en: Domingo 13 de Septiembre de 2009, 01:55 »
Hola, la logica de eso esta mal, fijate que si falta un dato no se va del Sub y sigue ejecutando el codigo. Private Sub Form_Load() If txtFOLIO.Text = "" Then MsgBox "Falta el numero de folio", vbExclamation, "Error" txtFOLIO.SetFocus Exit Sub End If If txtDEPARTAMENTO.Text = "" Then MsgBox "falta el departamento", vbExclamation, "Error" txtDEPARTAMENTO.SetFocus Exit Sub End If 'aca tendrias que asignarle al recordset los valores de los textbox... Mantenimiento.rsDatos.Update MsgBox "El registro fue guardado satisfactoriamente.", vbInformation, "Exitoso" End Sub
me imagino que antes de todo esto el recodset debe estar abierto con .Open y despues con el .AddNewsaludos.
4
« en: Domingo 13 de Septiembre de 2009, 01:50 »
Hola, ¿quien podria mirar 10 millones de registros? eso no es asi, si queres paginalo no hay problema lo podes hacer, pero me parece que debes hacer filtros por los que el usuario busque y encuentre los registros que quiere, pero no 10 millones de un solo saque.
saludos.
5
« en: Lunes 1 de Junio de 2009, 03:02 »
6
« en: Lunes 1 de Junio de 2009, 02:59 »
Hola, es mejor que uses componenetes que esta desarrollados para .NET y no un OCX de visual basic 6...tambien tenes componenetes que vienen muy buenos mira la pagina http://www.dotnetcharting.com/, o busca en internet tambien hay un control que te vajas de la pagina de microsoft para graficar en ASP.NET y Windows Forms... saludos.
7
« en: Lunes 1 de Junio de 2009, 02:51 »
Hola, tenes que subclasificar para evitar que hagan resize en el form..porque como lo estas haciendo poniendo ese codigo en el evento resize no sirve...
saludos.
8
« en: Lunes 1 de Junio de 2009, 02:46 »
Hola, para que 2 conexiones y 2 comandos ? con uno solo es suficiete...aparte el error es que estas mezclando las variables strSQL y strSQL1...
saludos.
9
« en: Lunes 1 de Junio de 2009, 02:43 »
Hola, de ultima usa las api's del clipboard para ver si asi funciona...
saludos.
10
« en: Lunes 23 de Marzo de 2009, 02:53 »
Hola, te tiene que funcionar...hice esto y me funciono para .MOD y .XM... Public Class Form1 Private Declare Sub BASSMOD_Free Lib "bassmod.dll" () Private Declare Function BASSMOD_Init Lib "bassmod.dll" (ByVal device As Integer, ByVal freq As Integer, ByVal flags As Integer) As Short Private Declare Function BASSMOD_MusicLoad Lib "bassmod.dll" (ByVal mem As Short, ByVal pfile As String, ByVal offset As Integer, ByVal Length As Integer, ByVal flags As Integer) As Short Private Declare Function BASSMOD_MusicPlay Lib "bassmod.dll" () As Short Private Declare Function BASSMOD_MusicStop Lib "bassmod.dll" () As Short Private Declare Function BASSMOD_MusicGetPosition Lib "bassmod.dll" () As Short Private Declare Function BASSMOD_MusicIsActive Lib "bassmod.dll" () As Short Private Declare Function BASSMOD_MusicSetPosition Lib "bassmod.dll" (ByVal Posição As Integer) As Integer Private Declare Function BASSMOD_MusicGetLength Lib "bassmod.dll" (ByVal Tamanho As Integer) As Integer Private Declare Function BASSMOD_MusicPause Lib "bassmod.dll" () As Short Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load BASSMOD_MusicStop() BASSMOD_Free() BASSMOD_Init(-1, 44100, 0) BASSMOD_MusicLoad(0, "C:keygen.xm", 0, 0, 2 Or 512) BASSMOD_MusicPlay() End Sub End Class
saludos.
11
« en: Domingo 22 de Marzo de 2009, 20:29 »
Hola, busca en internet la libreria Bass.Dll y FMod.dll con esas lo podes reproducir...
saludos.
12
« en: Domingo 22 de Marzo de 2009, 20:23 »
simplemente respondi como Jimbenit diciendo que vea lo facil que es hacerlo desde INNO SETUP sin crear estar matandose creando un .bat ni nada, sin usar el IExpress que de paso no creo que le llege al talon m al INNO SETUP en opcion para instaladores de aplicaciones, el INNO SETUP o cualquier otro puede ser mejor opcion...pero bueno yo no lo obligo que el elija la opcion que quiera...aparte no respondio mas el usuario, deberiamos esperar a que elija lo que el quiere y le resulte mas facil...
saludos.
13
« en: Domingo 22 de Marzo de 2009, 20:12 »
Hola, el activeskin no soporta controles que no tienen la propiedad HWND como el label o el image,
saludos.
Esto no es exactamente así. Para ser más exactos, el activeskin, sólo funciona con un puñado de controles estándard, razón por la que nunca lo he usado, por ejemplo el SSTab tiene Hwnd, como contenedor que es, pero ni lo 've'...
Si tu aplicación se remite a usar cuatro botones y unas cajas de texto, pués vale, pero como te salgas de la 'caja de arena' ya 'embarras toda la cocina', algo así como les ocurre a los gatos...
No, el SSTab funciona perfectamente con activeSkin y si se "VE", lo unico es que no se le puede aplicar el skin nada mas porque como dijiste soporta solo algunos...yo nunca lo he usado, simplemente se como funciona...
14
« en: Domingo 22 de Marzo de 2009, 18:08 »
Hola, el activeskin no soporta controles que no tienen la propiedad HWND como el label o el image, para que te lo tome lo debes poner dentro de un contenedor como un control picturebox...o directamente usar el que viene con el ActiveSkin se llama SkinLabel que es una label como el comun pero si tiene HWND...
saludos.
15
« en: Domingo 22 de Marzo de 2009, 18:06 »
Hola, ni hace falta ejecutar un .bat , el inno setup tiene para registrar automaticamente...algo asi: Source: "C:MSVBVM60.dll"; DestDir: {sys}; Flags: restartreplace uninsneveruninstall regserver
para los OCX cambia , pero es asi de facil... saludos.
17
« en: Miércoles 25 de Febrero de 2009, 02:36 »
NO HACEMOS TAREAS...
18
« en: Miércoles 25 de Febrero de 2009, 02:35 »
Hola, te creas variables publicas en el formualrio y las llenas con los datos que queres...si son varios datos, te podes crear una estructura publica UDT asi queda mas ordenado...
saludos.
19
« en: Miércoles 25 de Febrero de 2009, 02:31 »
Hola, para mi es mejor el codigo los controles ADODC y DATA, aparte de ser viejos , no se puede mantener un programa de bases de datos gigante con estos controles...llega un momento en que tenes que verte obligado a pasar al codigo...
saludos.
20
« en: Miércoles 25 de Febrero de 2009, 02:28 »
Hola, proba este ejemplo, es algo extenso para lo que queres, pero es lo mejor... Option Explicit Private Const LB_SETTABSTOPS As Long = &H192 Private Const WM_GETFONT = &H31 Private Type RECT Left As Long Top As Long Right As Long Bottom As Long End Type Private Type SIZE cx As Long cy As Long End Type Private 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 Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long) Private Declare Function GetDialogBaseUnits Lib "user32" () As Long Private Declare Function GetTextExtentPoint32 Lib "gdi32" Alias "GetTextExtentPoint32A" (ByVal hDC As Long, ByVal lpString As String, ByVal cbString As Long, lpSize As SIZE) As Long Private Declare Function GetDC Lib "user32" (ByVal hWnd As Long) As Long Private Declare Function ReleaseDC Lib "user32" (ByVal hWnd As Long, 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 GetClientRect Lib "user32" (ByVal hWnd As Long, lpRect As RECT) As Long Private Sub Form_Load() List1.AddItem vbTab & "123" End Sub Private Sub Command1_Click() Dim hwndLB As Long Dim rc As RECT ReDim tabarray(0 To 0) As Long hwndLB = List1.hWnd Call GetClientRect(hwndLB, rc) tabarray(0) = -((rc.Right - rc.Left) / CalcPixelsPerDlgUnit(hwndLB)) Call SendMessage(List1.hWnd, LB_SETTABSTOPS, 0&, ByVal 0&) Call SendMessage(List1.hWnd, LB_SETTABSTOPS, 1&, tabarray(0)) List1.Refresh End Sub Private Function CalcPixelsPerDlgUnit(hwndLB As Long) As Single Dim hFont As Long Dim hFontOld As Long Dim hDC As Long Dim sz As SIZE Dim cxAvLBChar As Long Dim cxDlgBase As Long Const sChars = "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890" hDC = GetDC(hwndLB) If hDC Then hFont = SendMessage(hwndLB, WM_GETFONT, 0, ByVal 0&) hFontOld = SelectObject(hDC, hFont) If GetTextExtentPoint32(hDC, sChars, Len(sChars), sz) Then cxAvLBChar = sz.cx / Len(sChars) cxDlgBase = GetDialogBaseUnits And &HFFFF& CalcPixelsPerDlgUnit = (2 * cxAvLBChar) / cxDlgBase End If Call SelectObject(hDC, hFontOld) Call ReleaseDC(hwndLB, hDC) End If End Function
saludos.
21
« en: Miércoles 4 de Febrero de 2009, 03:19 »
a que no entres aca y preguntes algo que no tiene nada qeu ver con el tema principal...es como si yo entrara al foro de la NASA y pregunte como salio el Milan...
22
« en: Miércoles 4 de Febrero de 2009, 03:17 »
Hola, aca no se hace la tarea a nadie y si por cada error vas a preguntar en el foro , eso no es asi, investiga ,busca, pensa, romperse la cabeza si es necesario, quemate las pestañas y vas a ver que hasta te ahorras de entrar al foro...con un simple IsNull o preguntar si es EOF se soluciona...
saludos.
23
« en: Sábado 31 de Enero de 2009, 00:42 »
bueno por lo menos ahora escribiste 3 renglones...  , el equivalente son las api's de la configuración regional de windows..como GetLocaleInfo y SetLocaleInfo...lo que podes ahcer y lo he visto en bastantes aplicaciónes es mandar un mensaje al usuario de que se le va a cambia la configuracíon regional y despues al terminar...restaurar la configuración... saludos.
24
« en: Jueves 29 de Enero de 2009, 02:17 »
Hola, 3 observaciones...
1 - esta en .NET y esto es visual basic 6...
2 - trabaja con la siamgenes en la carpeta de tu programa , no fuera de ella...
3 - la variable X es la que guarda el numero...solo debes mostrar esa variable...
saludos.
25
« en: Domingo 25 de Enero de 2009, 00:37 »
Hola, creo que no es posible, el texto es parte del control...de ultima podes hacer asi...te creas el option pero solo le haces visible el boton de opción y despues al lado pones un label...y cuando inhabilites el option el label va a seguir intacto...
saludso.
|
|
|
Mostrar Mensajes
