hola keria preguntarles como hago para insertar columnas en mi nuevo proyecto?
muchas gracias y feliz navidad para todos los foreros de elhacker.net
Cita de: komodin en 23 Diciembre 2006, 18:42 PM
hola keria preguntarles como hago para insertar columnas en mi nuevo proyecto?
muchas gracias y feliz navidad para todos los foreros de elhacker.net
a k llamas tu columnas? xD
insertar columnas??? en donde?????
en un Combo
en un List
en un listview
en un MsFlexGrid
crear campos en una tabla de Access, SQL...
:-\ :huh:
insertar un encabezado de columna
Cita de: komodin en 23 Diciembre 2006, 18:53 PM
insertar un encabezado de columna
si pero con que control quieres hacerlo
listview perdon por no haverlo posteado bien
Cita de: CeLaYa en 23 Diciembre 2006, 18:50 PM
insertar columnas??? en donde?????
en un Combo
en un List
en un listview
en un MsFlexGrid
crear campos en una tabla de Access, SQL...
:-\ :huh:
Se pueden hacer columnas con eso? Es decir, más de 1
a bueno asi si:
With ListView1
.ColumnHeaders.Add , , "Columna1"
.ColumnHeaders.Add , , "Columna2"
.View = lvwReport
End With
gracias a todos por la ayuda y por tenerme paciencia ;D
para poner culumnas en un list o en un combo chequense este post
http://foro.elhacker.net/index.php/topic,143992.msg676691.html#msg676691
el código viene para centrar los items de un list, pero si se fijan es solo cosa de medir a que distancia queremos el texto, asi para hacer columnas, solo tendremos que separar el texto en las columnas que se quieran
PD. perdón por postear 2 veces esque como que la página se bloqueo o no se que y solo pude poner un pedazo
como hago para que se vea asi:
(http://img175.imageshack.us/img175/3701/fotorb3.jpg)
con lo que me enviaste celaya solo consigo las columnas quiero que este la parte que dice nombre y lan/wan.
Gracias ya lo he solucionado
respecto a como acomodar columnas en un list he modificado el código anterior para acomodar 2 columnas.
en un módulo
Option Explicit
Private Declare Function GetDialogBaseUnits Lib "user32.dll" () As Long
Private Declare Function GetDC Lib "user32.dll" (ByVal hwnd As Long) As Long
Private Declare Function SelectObject Lib "gdi32.dll" (ByVal HDC As Long, _
ByVal hObject As Long) As Long
Private Declare Function GetTextExtentPoint32 Lib "gdi32.dll" Alias _
"GetTextExtentPoint32A" (ByVal HDC As Long, ByVal _
lpString As String, ByVal cbString As Long, ByRef _
lpSize As SIZE) As Long
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 Function ReleaseDC Lib "user32.dll" (ByVal hwnd As Long, ByVal _
HDC As Long) As Long
'Estructuras---------------------------------------------------------------------
Private Type SIZE
cx As Long
cy As Long
End Type
'Variables y constantes----------------------------------------------------------
Private tabs(10) As Long, texto1(10) As String, texto2(10) As String, tabs2(10) As Long, pos(10) As Integer
Private i As Integer, inf As Integer, sup As Integer
Private cantidad As Integer, cantidad2 As Integer
Private Const WM_GETFONT As Long = &H31&
Private Const LB_SETTABSTOPS As Long = &H192
Private Const Cadena = "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ"
'*******************************************************************************'
Public Sub Centrar(LB As ListBox, Col1 As String, Col2 As String)
Dim U As Single, resultado As Single, tamCol1 As Long, tamCol2 As Long, tamlist As Single
Dim ParentForm As Form
'Esta es la limitación que pongo: máximo 10 ítems..Si quieres utilizar más
'de 10, deberás modificar el sencillo código. Ante alguna duda está mi
'correo arriba.
cantidad = LB.ListCount + 1
If cantidad = 11 Then
MsgBox "No puedes agregar más de 10 Ítems..." & vbCrLf & _
"Deberás modificar antes algo de código." & vbCrLf & _
"Es sencillo... :-)", vbInformation, "No se permite agregar más Ítems:"
Exit Sub
End If
Set ParentForm = LB.Parent
'El problema de los tabuladores es que hay que poner la distancia
'en unidades de diálogo:
U = UnidadporPixel(LB.hwnd)
'Calcula el tamaño del texto:
tamCol1 = Fix(calculatamaño(LB.hwnd, Col1) / U)
tamCol2 = Fix(calculatamaño(LB.hwnd, Col2) / U)
'Calcula el tamaño del ancho del listbox:
tamlist = ParentForm.ScaleX(LB.Width, ParentForm.ScaleMode, vbPixels)
tamlist = Fix((tamlist / U) - 1)
'Calcula el tamaño del tabulador y lo guarda:
resultado = (tamlist / 2) - tamCol1
tabs(cantidad) = resultado
'Guarda el texto en el array:
texto1(cantidad) = Col1
texto2(cantidad) = Col2
'Borra todos los tabs y el listbox:
LB.Clear
Call SendMessage(LB.hwnd, LB_SETTABSTOPS, 0&, ByVal 0&)
'La call ordenar() ordena los tabs de menor a mayor en tabs2(),
'después dejará sólo un item repetido y por último calculará el
'orden de tabulador a cada item.
Call ordenar
'Ahora introduzco de nuevo todos los elementos al listbox:
For i = 1 To cantidad
LB.AddItem (texto1(i) + vbTabs(pos(1)) + texto2(i))
Call SendMessage(LB.hwnd, LB_SETTABSTOPS, cantidad2, tabs2(i))
Next i
Set ParentForm = Nothing
End Sub
'-------------------------------------------------------------------------------'
Private Function calculatamaño(ByVal hwnd As Long, texto2 As String) As Single
'Esta función devuelve el tamaño del texto a centrar
Dim hfuente As Long, Lfuente As Long, tamaño As SIZE
Dim HDC As Long
HDC = GetDC(hwnd)
If HDC = 0 Then Exit Function
hfuente = SendMessage(hwnd, WM_GETFONT, 0&, ByVal 0&)
Lfuente = SelectObject(HDC, hfuente)
If GetTextExtentPoint32(HDC, texto2, Len(texto2), tamaño) <> 0 Then
calculatamaño = tamaño.cx 'Devuelve el tamaño
End If
Call SelectObject(HDC, Lfuente)
Call ReleaseDC(hwnd, HDC)
End Function
'-------------------------------------------------------------------------------'
Private Function UnidadporPixel(ByVal hwnd As Long) As Single
Dim DBU As Single, hfuente As Long, Lfuente As Long, tamaño As SIZE
Dim Anchocaracter As Single
Dim HDC As Long
HDC = GetDC(hwnd) 'HDC = Handle al Dispositivo de Contexto
'hwnd = listbox.hwnd
If HDC = 0 Then Exit Function 'GetDC devuelve NULL si hay error
'Recupera la fuente con la cual el control está dibujando el texto.
hfuente = SendMessage(hwnd, WM_GETFONT, 0&, ByVal 0&)
Lfuente = SelectObject(HDC, hfuente)
'Calcula la anchura de la cadena de texto especificada.
If GetTextExtentPoint32(HDC, Cadena, Len(Cadena), tamaño) <> 0 Then
Anchocaracter = tamaño.cx / Len(Cadena) 'Promedio por carácter
DBU = GetDialogBaseUnits And &HFFFF& 'Unidad de diálogo
UnidadporPixel = (2 * Anchocaracter) / DBU
End If
Call SelectObject(HDC, Lfuente)
Call ReleaseDC(hwnd, HDC) 'Tras GetDC hay que acabar con ReleaseDC para
'liberarlo
End Function
'-------------------------------------------------------------------------------'
Private Function vbTabs(num As Integer) As Variant
'Número de tabuladores.
Dim h As Integer
vbTabs = ""
For h = 1 To num
vbTabs = vbTabs + vbTab
Next h
End Function
'-------------------------------------------------------------------------------'
Private Sub ordenar()
Dim po As Integer
'Pasa todos los datos de tabs() a tabs2()
For i = 1 To cantidad
tabs2(i) = tabs(i)
Next i
'Los ordena de menor a mayor:
inf = 1: sup = cantidad
While inf < cantidad
While sup >= inf + 1
Call orden
Wend
inf = inf + 1: sup = cantidad
Wend
'Ahora hay que comprobar los repetidos y dejar sólo uno:
cantidad2 = cantidad
Dim p As Integer
For i = 1 To cantidad2 - 1
If i >= cantidad2 Then Exit For '<--Parece q esto no es necesario
If tabs2(i) = tabs2(i + 1) Then ' pero sí lo es..
For p = i + 1 To cantidad2 - 1
tabs2(p) = tabs2(p + 1)
Next p
tabs2(cantidad2) = 0: cantidad2 = cantidad2 - 1: i = i - 1
End If
Next i
'Ejemplo hasta aquí:
'Datos ordenados: 2,10,23,23,23
'Ahora: 2,10,23
'Es decir, ahora ya están los tabs y el número que hay que
'poner en sendmessage, y ordenados de menor a mayor..
'Ahora sólo queda averiguar cuales son los tabs que se repiten y cuándo:
For i = 1 To cantidad
For p = 1 To cantidad2
If tabs(i) = tabs2(p) Then pos(i) = p
Next p
Next i
End Sub
'-------------------------------------------------------------------------------'
Private Sub orden()
Dim temp As Integer
For sup = sup To inf + 1 Step -1
If tabs2(inf) > tabs2(sup) Then
temp = tabs2(inf)
tabs2(inf) = tabs2(sup)
tabs2(sup) = temp
Exit For
End If
Next sup
End Sub
y el en form
Private Sub Form_Load()
Show
With List1
.Height = 1680
.Left = 1080
.Top = 240
.Width = 5640
.FontName = "Arial"
.FontSize = 12
End With
With Form1
.Height = 2685
.Width = 7950
End With
'Esta es la forma de 'additem' ítems:
'Centrar (nombre del listbox, string a insertar):
Call Centrar(List1, "Texto ", "en")
Call Centrar(List1, "2", "columnas")
End Sub
Te veo con bastantes dudas en el ListView... mirate este (http://www.recursosvisualbasic.com.ar/htm/tutoriales/control-listview.htm) manual
De todas formas el troyano que tu kieres hacer lo explica paso a paso KIZAR, como añadir columnas y de mas incluido...
1S4ludo
Cita de: E0N en 24 Diciembre 2006, 13:20 PM
Te veo con bastantes dudas en el ListView... mirate este (http://www.recursosvisualbasic.com.ar/htm/tutoriales/control-listview.htm) manual
De todas formas el troyano que tu kieres hacer lo explica paso a paso KIZAR, como añadir columnas y de mas incluido...
1S4ludo
puse esa imagen como ilustrativa de como keria que salga la parte de las columnas,no porke vaya a hacer el mismo troyano que kizar
salu2
muchas gracias celaya por tu aporte ;D