|
232
|
Programación / Programación Visual Basic / Re: Duplicar un item en un listview
|
en: 23 Diciembre 2006, 15:11 pm
|
aver vamos a ver si entendí. Lo que quieres hacer es que cuando agregas un Item te muestre: Nombre Tiempo1 Tiempo2 Pedro 1 1 y si vas agregando más items ponga: Nombre Tiempo1 Tiempo2 Pedro 1 1 Pedro 2 2 bueno si el problema es el objeto "x" pues quitalo, y pones tú código así: Listview1.ListItems.add ,,"Pedro" Listview1.ListItems.subitems(1) = tiempo1 Listview1.ListItems.subitems(2) = tiempo2
|
|
|
233
|
Programación / Programación Visual Basic / Re: Traer al frente de la ventana una en concreto
|
en: 23 Diciembre 2006, 14:44 pm
|
usa la api FindWindow Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long Private Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long Private Declare Function GetClassName Lib "user32" Alias "GetClassNameA" (ByVal hwnd As Long, ByVal lpClassName As String, ByVal nMaxCount As Long) As Long Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Private Sub Command1_Click() Dim WinWnd As Long, Ret As String, RetVal As Long, lpClassName As String 'Nombre de la ventana Ret = "Nombre de la ventana" 'Búsca la ventana WinWnd = FindWindow(vbNullString, Ret) If WinWnd = 0 Then MsgBox "kp2 no la encontré ...": Exit Sub 'te la muestra ShowWindow WinWnd, 0 ShowWindow WinWnd, 1 End Sub
se supone que solo basta con escribir "ShowWindow WinWnd, 1", pero aveces no lo hace correctamente por eso agrego "ShowWindow WinWnd, 0"
|
|
|
236
|
Programación / Programación Visual Basic / Re: ¿alguien controla la impresora?
|
en: 23 Diciembre 2006, 14:00 pm
|
es por el "Printer.NewPage", se supone que los datos son enviados a la impresora cuando pones el EndDoc, porque con eso le dices a la impresora que has "terminado" la impresión, pero me he encontrado que si pones el NewPage, te manda la página que acabas de crear, no se si sea algún Bug de Printer, o tenga ese comportamiento porque el método Newpage "termina" la página actual y comienza otra nueva.
|
|
|
238
|
Programación / Programación Visual Basic / Re: ¿alguien controla la impresora?
|
en: 22 Diciembre 2006, 22:14 pm
|
puedes poner un ";" después del print mira si pones printer.print "Mensaje" printer.print "de prueba"
vas a tener un resultado así: Mensaje de prueba pero si pones el ";" printer.print "Mensaje"; printer.print "de prueba"
tienes un resultado así: Mensaje de prueba
|
|
|
239
|
Programación / Programación Visual Basic / Re: Como cosa rara problemas con Ado
|
en: 22 Diciembre 2006, 17:17 pm
|
'abrir la base de datos Public Sub OpenDB() Dim strConect strConect = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path + "\ContF.mdb;Persist Security Info=False;JET OLEDB:DATABASE PASSWORD=link" Cn.Open strConect RS.Open "select * from Principal", Cn, adOpenKeyset, adLockBatchOptimistic rsR.Open "Select * from Reporte", Cn, adOpenDynamic, adLockBatchOptimistic End Sub
y no te faltaria poner antes de RS.Open "select * from Principal", Cn, adOpenKeyset, adLockBatchOptimistic
|
|
|
|
|
|
|