Menú

Mostrar Mensajes

Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.

Mostrar Mensajes Menú

Mensajes - CeLaYa

#61
creo que primero debes poner en claro que quieres y después agarrarte un buen manual de Visual basic

con VB puedes usar tablas de access, hojas de exel, manipular doc. de word, solo decidete como quieres armar tu proyecto y habrá alguien que te heche la mano...



saludos!!!
#62
Programación Visual Basic / Re: Imagen en bd
29 Junio 2007, 02:53 AM
mira un consejo, al igual que Hendrix y MadAntrax te recomiendo que guardes las imagenes en un directorio y en la BD guardes el path de ese dir. con esto te vas a ahorrar un mundo de espacio en el DD

mira si guardas una imagen de 3kb el campo de la tabla se ajustará y medira 3kb, pero ahora supongamos que tienes 1000 registros con imagenes de 3kb, y en el registro 1001 metes una imagen de 1mb, entonces el campo de ajustará nuevamente a 1mb, es decir tendras 1001 registros con campos de 1mb!!!!, un desperdicio enorme de espacio, piensalo, esto te lo digo por experiencia  :xD
#63
Programación Visual Basic / Re: Imagen en bd
25 Junio 2007, 22:49 PM
te recomiendo inatales el service pack 4 del visual basic, con eso podrás guardar imagenes en tu bd de forma similar a la que guardas otros datos, aunque no te recomiendo que lo hagas asi, porque tu BD crecería mucho y te desperdiciaría mucho espacio
#64
pues podrías obtener el ancho y largo del texto con el objeto printer y luego usar las propiedades colwidth y rowHeight del MSFlexgrid

un ejemplo:

    Dim x As String
    Dim Largo As Long
    Dim Ancho As Long
   
   
    x = "bla bla bla bla bla bla bla bla bla bla!"
    Ancho = Printer.TextWidth(x)
    Largo = Printer.TextHeight(x)
   
   
   
    MSFlexGrid1.Col = 0
    MSFlexGrid1.Row = 0
    MSFlexGrid1.Text = x
    MSFlexGrid1.ColWidth(0) = Ancho + 50
    MSFlexGrid1.RowHeight(0) = Largo + 50
#65
Cita de: hepy_92 en 22 Junio 2007, 22:11 PM
me da error al poner el componente del richtextbox...=S no lo habia usado nunca antes
me tira el siguiente error
No se encontro la informacion de licencia para este componente. No tiene una licencia apropiada para usar esta funcionalidad en el entorno de diseño.


Reinstala el VB, con eso se debe corregir
#66
jajajajaja eso esta bueno!!!!!
#67
si, si se puede


Private Sub Command1_Click()
    Dim i As Integer
    Dim j As Integer
   
   
    For i = 1 To Len(text1.Text) 'Recorres el text
        For j = i + 2 To Len(text1.Text)
            'Buscas si hay cadenas de 3 que sean iguales
            If Mid(text1.Text, i, 3) = Mid(text1.Text, j, 3) Then
                'aqui marcas el color
                text1.SelStart = j - 1
                text1.SelLength = 3
                text1.SelColor = vbRed
                text1.SelBold = True
               
                text1.SelStart = i - 1
                text1.SelLength = 3
                text1.SelColor = vbRed
                text1.SelBold = True
             End If
        Next j
    Next i
End Sub




no he probado el código pero creo que si funciona, ha por cierto tendrías que usar un RichtTextBox para que te deje colorear el texto
#68
me parece que tendías que abrir la tabla "sysdatabase", y listar los registros que contiene.


Option Explicit

Private Sub Form_Load()
    Dim BD As Connection
    Dim Tb As Recordset

    Dim conexion As String
   
    Set BD = New Connection
   
    conexion = "Provider=SQLOLEDB.1;" & _
               "Persist Security Info=False;" & _
               "User ID= SA;" & _
               "pwd=;" & _
               "Initial Catalog= Master;" & _
               "Data Source=Servidor"

    On Local Error Resume Next
    BD.Open conexion
    If Err Then
        MsgBox Err.Number & vbCrLf & Err.Description
        Exit Sub
    End If
    On Local Error GoTo 0
   
    Set Tb = New Recordset
    Tb.Open "SELECT Name FROM Sysdatabases", BD
    Combo1.Clear
    While Not Tb.EOF
        Combo1.AddItem Tb!Name
        Tb.movenext
    Wend
    Tb.Close
    BD.Close

    set Tb = nothing
    set BD = nothing
End Sub
#69
bueno si quieres que el programa te diga adios al cerrar la palicación haz esto:


Private Sub Form_Unload(Cancel As Integer)
   
    Dim i As Long
    i = MsgBox("¿Cerrar Form?", vbYesNo + vbQuestion, "Cerrar")
   
    If i = 6 Then 'Selecciono "si"
            MsgBox "adios"
    Else ' Selecciono "No"
        Cancel = 1 ' si se cambia el vaor de "cancel" no se cierra el form
    End If
   
End Sub
#70
Bueno para cargar un ListView puedes hacer 2 cosas:

1. En tiempo de diseño pones el listview y le dices que sea invisible y al hacer click en uno de los nodos que lo vuelva visible y puedes establecer coordenadas para que aparezca en cierta parte de programa y/o para confugurar las columnas
ejemplo:


Private Sub TreeView1_NodeClick(ByVal Node As MSComctlLib.Node)
        select case node.text
                    case "Archivos"
                           ListView1.ColumnHeaders.Add 0, , "Columna1", ancho, alineación
                           ListView1.ColumnHeaders.Add 1, , "Columna2", ancho, alineación
                           ListView1.ColumnHeaders.Add 2, , "Columna3", ancho, alineación
                           ListView1.Move Izquierda, Arriba, Ancho, Largo
                           ListView1.Visible = True
                   case ....
        end select
End Sub



2. Otra cosa que puedes hacer es crear un arreglo de listViews y cargarlos segun necesites, esto te serviria en caso de que ocupes más de un listview al mismo tiempo
ejemplo:

Private Sub TreeView1_NodeClick(ByVal Node As MSComctlLib.Node)
        select case node.text
                    case "Archivos"   
    Load ListView1(ListView1.Count + 1) ' Aqui creas una nueva instancia del control
    ListView1(ListView1.Count).ColumnHeaders.Add 0, , "Columna1", ancho, alineación
    ListView1(ListView1.Count).ColumnHeaders.Add 1, , "Columna2", ancho, alineación
    ListView1(ListView1.Count).ColumnHeaders.Add 2, , "Columna3", ancho, alineación
   
    ListView1(ListView1.Count).Move Izquierda, Arriba, ancho, Largo
    ListView1(ListView1.Count).Visible = True
    end select
End Sub


esto último tiene una limitante si quieres descarlos listviews tendras que hacerlo del indice mayor al menor, es decir si tienes 4 listviews ListView(1), ListView(2),ListView(3),ListView(4), y quieres descargar el 2 tendiras que descargar primero el 4 y luego el 3