SoloCodigo

Coloca los siguientes controles en el formulario, en las posiciones que te indico

label1     text1      text2

label2     text3      text4


command1          command2

Y ahora copia, este codigo completo en el formulario... y prueba...

Dim Matriz1(1 To 10, 1 To 10) As Double

Dim Matriz2(1 To 10, 1 To 10) As Double
Dim Matriz3(1 To 10, 1 To 10) As Double


Private Sub Command1_Click()
    For i = 1 To Text1.Text
        For j = 1 To Text2.Text
            Matriz1(i, j) = InputBox("Ingresar valor (" & i & ":" & j & ")", "Ingreso Matriz 1")
        Next j
    Next i
    For i = 1 To Text3.Text
        For j = 1 To Text4.Text
            Matriz2(i, j) = InputBox("Ingresar valor (" & i & ":" & j & ")", "Ingreso Matriz 2")
        Next j
    Next i
    Command2.Enabled = True
End Sub

Private Sub Command2_Click()
msg = Empty
For i = 1 To Text1.Text
    For j = 1 To Text4.Text
        For k = 1 To Text3.Text
            Matriz3(i, j) = Matriz3(i, j) + Matriz1(i, k) * Matriz2(k, j)
        Next k
        msg = msg & "(" & i & ":" & j & ")=" & Matriz3(i, j) & "     "
    Next j
    msg = msg & vbLf
Next i
msg = msg & vbLf
MsgBox msg
End Sub

Private Sub Form_Load()
    Label1.Caption = "Matriz 1"
    Text1.Text = ""
    Text2.Text = ""
    Label2.Caption = "Matriz 2"
    Text3.Text = ""
    Text4.Text = ""
    Command1.Caption = "Ingresar valores..."
    Command2.Caption = "Calcular..."
    Command2.Enabled = False
       
End Sub



Las correcciones, verificaciones y validaciones te las dejo, para que le pongas un poco de tus sesos...

Ahi va un sitio en que puedes encontrar lo que buscas... Suerte....

/* Cientos de ejemplos VB */
http://www.solotuweb.com/recursos~t~Visual...06.0~id~28.html

Para este caso, a mi me sucedio lo siguiente:
- En mi PC, tenia instalado SQLServer y ademas sobre el mismo equipo desarrollaba las aplicaciones. Hasta ahi todo ok. Pero, si instalaba la aplicacion en otro PC de la RED, me aparecia el mensaje que indicas. Permisos, atributos, todo ok. Pero aun asi, no lograba entrar al servidor.

- Entonces, busque otra forma de conectarme, y funciono...

- Debes crear un DSN en cada maquina. Es decir, un ODBC que se conecte al servidor SQLServer.

- Despues, en tu aplicacion, usas la conexion ODBC para conectarte a tu base de datos, usando los mismos parametros del DSN.

Te envio ejemplo de conexion...


** Debes agregar a las referencias Microsoft ActiveX Data Objects 2.6 Library o superior.


Private Sub Command1_Click()
'"DSN=midsn;UID=login;PWD=contraseña"

    Dim tField As ADODB.Field
    Set cnn = Nothing
    Set rst = Nothing
    Set cnn = New ADODB.Connection
    Set rst = New ADODB.Recordset
   
   'Mi conexion ODBC se llama Monge

    cnn.Open "DSN=Monge;UID=sa;PWD="
   
    rst.Open "SELECT * FROM pclientes", cnn, adOpenDynamic, adLockOptimistic
    Cont = 0
    While Not rst.EOF And Cont < 10
        Cont = Cont + 1
        msg = Empty
        msg = msg & rst.Fields(0).Value & "*"
        msg = msg & rst.Fields(1).Value & "*"
        msg = msg & rst.Fields(2).Value & "*"
        msg = msg & rst.Fields(3).Value & vbLf
        Print msg
        rst.MoveNext
    Wend    
    rst.Close
    cnn.Close

End Sub

No subio... asi es que, aqui va el codigo...

En un MODULO:


  Public Declare Function Shell_NotifyIcon Lib "shell32.dll" Alias "Shell_NotifyIconA" (ByVal dwMessage As Long, lpData As NOTIFYICONDATA) As Long
 
  Public Type NOTIFYICONDATA
        cbSize As Long
        hWnd As Long
        uID As Long
        uFlags As Long
        uCallbackMessage As Long
        hIcon As Long
        szTip As String * 64
   End Type
   
  Global t As NOTIFYICONDATA
   
   Global Const NIM_ADD = &H0
   Global Const NIM_MODIFY = &H1
   Global Const NIM_DELETE = &H2
   Global Const NIF_MESSAGE = &H1
   Global Const NIF_ICON = &H2
   Global Const NIF_TIP = &H4
   Global Const WM_MOUSEMOVE = &H200
 



En el formulario (llamalo ARBOLITO):

Crea un menu con las siguientes propiedades:
(el formato es CAPTION --> NAME)

        Opciones --> mnuShell

Y dependiendo de este, los siguientes sub-menus:
         Apagado       --> mnuOff
         Encendido     --> mnuOn
         Cerrar        --> mnuClose
         Acerca de ... --> mnuAcerca

En el formulario, coloca 3 labels, un boton llamado cmdOK, un timer1, y una matriz de controles picture (picture1), numeros del 0 al 4, y en cada uno de estos picture coloca un icono...


Dim I As Integer

Private Sub Command1_Click()

End Sub

Private Sub mnuAcerca_Click()
    Me.Show
    'Me.WindowState = 0
   
End Sub

Private Sub mnuClose_Click()
   Shell_NotifyIcon NIM_DELETE, t
   End
End Sub

Private Sub mnuOff_Click()
   mnuOff.Checked = True
   mnuOn.Checked = False
   I = 0
   t.hIcon = Picture1(I).Picture
   t.szTip = "Felíz Navidad, les desea marianok" & Chr$(0)
   Shell_NotifyIcon NIM_MODIFY, t

End Sub

Private Sub mnuOn_Click()
   mnuOn.Checked = True
   mnuOff.Checked = False
   t.szTip = "Felíz Navidad, les desea marianok" & Chr$(0)
End Sub

Private Sub OK_Click()
    'Me.WindowState = 1
    Me.Hide
   
End Sub

Private Sub Picture1_MouseMove _
            (Index As Integer, _
            Button As Integer, _
             Shift As Integer, _
             X As Single, Y As Single)
   
    If Hex(X) = "1E3C" Then
        Arbolito.PopupMenu Arbolito.mnuShell
    End If

End Sub

Private Sub Form_Load()

    I = 0
    t.cbSize = Len(t)
    t.hWnd = Picture1(0).hWnd
    t.uID = 1&
    t.uFlags = NIF_MESSAGE Or _
                     NIF_ICON Or _
                     NIF_TIP
   
    t.uCallbackMessage = WM_MOUSEMOVE

    t.hIcon = Picture1(I).Picture
    t.szTip = "Muy Felíz Navidad y Prospero Año Nuevo, les desea marianok" & Chr$(0)
    Shell_NotifyIcon NIM_ADD, t
    Me.Hide
End Sub


Private Sub Timer1_Timer()
    If mnuOn.Checked Then
        Rem Call NotifyIcon_Change(, " ")
        I = I + 1: If I > 4 Then I = 0
        t.hIcon = Picture1(I).Picture
        Shell_NotifyIcon NIM_MODIFY, t
    End If
End Sub


Despues de probar esto... seguro se te ocurre como hacer lo que necesitas...

SUERTE

Solo agregaria lo siguiente...

--> Se debe agregar una referencia a
Microsoft ActiveX Data Object 2.6 Library

--> Se debe crear una conexion ODBC con el nombre "BASE"

Y todo listo...



Muchisimas gracias... me sirvio...

Estimados,

Alguien me puede dar una idea de como mostrar todas las tablas que se encuentran en una base de datos ACCESS usando ADO.


En el siguiente codigo, abro la base de datos y despues leo una tabla definida.

    Set cnn = New ADODB.Connection
    Set rst = New ADODB.Recordset
    With cnn
        .ConnectionString = _
            "Provider=Microsoft.Jet.OLEDB.3.51;" & _
            "Data Source=C:\BASEDATOS.MDB;"
        .Open
    End With    
    ' Indicarle de que tabla vamos a leer los datos
    rst.Open "SELECT * FROM empresa", cnn, adOpenDynamic, adLockOptimistic


La idea, es poder colocar en un combobox, todas las tablas que estan contenidas en la base de datos, y despues en el combobox, al hacer click, se visualizaran todos los campos y datos de la tabla seleccionada.


Gracias

Estimados,

Tengo la siguiente situacion:

- Realice dos aplicaciones (cliente y servidor) usando winsock.
- El cliente envia un dato, y el servidor lo recibe, aplica una funcion, y envia la respuesta.
- Ambas aplicaciones funcionan 100% en sobre un mismo equipo y sobre equipos distintos.

Pero si llevo la aplicación Servidora a otro PC, realiza la operacion sobre el dato recibido (que es enviado por el cliente), pero al cliente le envia el dato truncado.

Si hago un debug sobre la aplicacion servidora, las variables con sus valores estan OK, el mensaje que se arma antes de ser enviado al cliente esta OK. Pero no le llega al cliente en forma completa.

Alguien tiene idea a que se puede deber?

Las aplicaciones las realice sobre VB 6.0 con SP5 y SO Windows 2000 Profesional SP4.

Para unir VB con cualquier otro programa OFFICE, solo basta con hacer una macro en el programa destino (en este caso WORD) y posteriormente ver el codigo generado por la macro (que es muy similar a VB, pero en script) y adaptar el codigo a VB 6.0

Asi es que, lo que tienes que hacer, es teniendo tu planilla excel con los datos, supongamos en cada columna (NOMBRE, CARGO, EMPRESA y DIRECCION), y haces una macro en WORD que lea el archivo de entrada EXCEL y genere las "combinaciones" de correspondencia (recuerda tener la carta matriz confeccionada), y despues ves el codigo, y listo.

Despues llevas el codigo script de la macro a VB y lo adaptas...

Lo que puedes hacer, es en modo de diseño, dejarlo en ejecucion y cuando se produzca el error aparecera indicada en color rojo la linea que te esta arrojando el error.

Asi podras saber que parte especificamente tiene el problema, y podras al menos tener un punto de partida... lo demas, es analisis y un poco de neuronas para resolverlo...

Suerte

P.D.: Si no puedes ejecutar tu aplicacion en tiempo de diseño, entonces, la parte latosa, es que debieras colocar un control de errores y generar un archivo LOG que te registro todos los eventos que se produzcan y en que linea ocurre ello... es engorroso hacer archivos de control, pero, ni modo... hay que hacer lo que hay que hacer...

Disculpa por ser medio lento para entender... pero podrias ser mas explicito en tu consulta... No todo el mundo tiene la capacidad de entender TU problema...

Este control es el que estas buscando?....

http://www16.brinkster.com/eduroam/api/default.asp?pag=b2k

Las propiedades adicionales a las ya mencionadas las puedes encontrar, simplemente escribiendo el objeto PRINTER seguido del punto (.), y apareceran todos los eventos y propiedades, y entre ellas, encontraras...

Printer.ColorMode
Printer.Copies
Printer.DeviceName
Printer.DriverName
Printer.Orientation
Printer.Page
Printer.PaperBin
Printer.PaperSize
Printer.PrintQuality