wenas como estan, eh estoy empesando a ver visual basic, pero por ahora estoy viendo en modo consola y weno stava asiendo unos ejemplos para poder ver algunas cosillas y me tope con un problema es sobre Console.Clear, tengo entendido que para limpiar la pantalla ok, pero al utilizar el Console.Clear, me limpia lo que queda de arriba y solo me deja lo que hay debajo de Consolo.Clear y no es lo que deseo weno lo que queria hacer era esto.



como veran por cada operacion que realizo, ¿pregunta si desea probar con otra operacion si al darle Si entonces que me limpie la operacion realizada anteriormente y que el cursor se posicione en donde Seleccione Opcion: stava viendo la ayuda pero no logro hacerlo si alguien me puede orientar seria de gran ayuda...

Module Module1
 
    Sub Main()
        Dim Num1 As Integer, Num2 As Integer
        Dim Opcion As Integer, Resultado As Double
 
        Console.ForegroundColor = ConsoleColor.Red : System.Console.WriteLine("")
        System.Console.WriteLine("          Operaciones de Matematicas Básicas")
        System.Console.WriteLine("          ==================================")
 
        System.Console.WriteLine("") : System.Console.WriteLine("") : Console.ResetColor()
 
        Console.ForegroundColor = ConsoleColor.Green
        System.Console.WriteLine("   [1] Suma")
        System.Console.WriteLine("   [2] Resta")
        System.Console.WriteLine("   [3] Multiplicación")
        System.Console.WriteLine("   [4] División")
        System.Console.WriteLine("   [5] Potencia")
        System.Console.WriteLine("   [6] Salir")
        Console.ResetColor() : System.Console.WriteLine("") : System.Console.WriteLine("")
 
        System.Console.Write("                              Seleccione Opción: ") : Console.ForegroundColor = ConsoleColor.Green : Opcion = Console.ReadLine : Console.ResetColor()
 
        System.Console.WriteLine("") : System.Console.WriteLine("")
 
        Select Case Opcion
            Case 1
                System.Console.WriteLine("   ++++++++++++++++++++++++++++++++++++++++++++++++")
                System.Console.WriteLine("   | Operación de Suma                            |")
                System.Console.WriteLine("   ++++++++++++++++++++++++++++++++++++++++++++++++")
                System.Console.WriteLine("")
 
                System.Console.Write("   Sumando 1: ") : Num1 = Console.ReadLine
                System.Console.Write("   Sumando 2: ") : Num2 = Console.ReadLine
                System.Console.WriteLine("")
 
                Resultado = Val(Num1 + Num2)
 
                System.Console.Write("   La suma es      :" & Str(Resultado))
 
            Case 2
                System.Console.WriteLine("   ++++++++++++++++++++++++++++++++++++++++++++++++")
                System.Console.WriteLine("   | Operación de Resta                           |")
                System.Console.WriteLine("   ++++++++++++++++++++++++++++++++++++++++++++++++")
                System.Console.WriteLine("")
 
                System.Console.Write("   Ingrese Minuendo  : ") : Num1 = Console.ReadLine
                System.Console.Write("   Ingrese Sustraendo: ") : Num2 = Console.ReadLine
                System.Console.WriteLine("")
 
                Resultado = Val(Num1 - Num2)
 
                System.Console.Write("   La diferencia es  :" & Str(Resultado))
 
            Case 3
                System.Console.WriteLine("   ++++++++++++++++++++++++++++++++++++++++++++++++")
                System.Console.WriteLine("   | Operación de Multiplicación                  |")
                System.Console.WriteLine("   ++++++++++++++++++++++++++++++++++++++++++++++++")
                System.Console.WriteLine("")
 
                System.Console.Write("   Ingrese Multiplicando : ") : Num1 = Console.ReadLine
                System.Console.Write("   Ingrese Multiplicador : ") : Num2 = Console.ReadLine
                System.Console.WriteLine("")
 
                Resultado = Val(Num1 * Num2)
 
                System.Console.Write("   El Producto es        :" & Str(Resultado))
 
            Case 4
                System.Console.WriteLine("   ++++++++++++++++++++++++++++++++++++++++++++++++")
                System.Console.WriteLine("   | Operación de División                        |")
                System.Console.WriteLine("   ++++++++++++++++++++++++++++++++++++++++++++++++")
                System.Console.WriteLine("")
 
                System.Console.Write("   Ingrese Dividendo: ") : Num1 = Console.ReadLine
                System.Console.Write("   Ingrese Divisor  : ") : Num2 = Console.ReadLine
                System.Console.WriteLine("")
 
                Resultado = Val(Num1 / Num2)
 
                System.Console.Write("   El Cociente es   :" & Str(Resultado))
 
            Case 5
                System.Console.WriteLine("   ++++++++++++++++++++++++++++++++++++++++++++++++")
                System.Console.WriteLine("   | Operación de Potencia                        |")
                System.Console.WriteLine("   ++++++++++++++++++++++++++++++++++++++++++++++++")
                System.Console.WriteLine("")
 
                System.Console.Write("   Ingrese Base          : ") : Num1 = Console.ReadLine
                System.Console.Write("   Ingrese Exponente  : ") : Num2 = Console.ReadLine
                System.Console.WriteLine("")
 
                Resultado = Val(Num1 ^ Num2)
 
                System.Console.Write("   La Potencia es   :" & Str(Resultado))
 
            Case 6
                If MsgBox("Esta seguro que desea sali??", MsgBoxStyle.Question + vbYesNo, "Operaciones Matematicas") = 6 Then
                    End
                End If
            Case Else
                MsgBox("El número ingresado esta fuera del rango", MsgBoxStyle.Critical, "Operaciones Aritmeticas")
 
        End Select
 
        System.Console.ReadLine()
    End Sub
 
End Module

wenas necesito desplazarme por el DataCombo al presionar los botones que remarque abajo y a la vez se deslize lo que hay en el combo osea que me seleccione los item que hay en el DataCombo....



Para los botones utilize este codigo.

Private Sub CmdMov_Click(Index As Integer)
    Select Case Index
        Case 0
            RSTIdentifi.MoveFirst
            MsgBox "Principio de la Lista", vbCritical, "Reparaciones"
        Case 1
            RSTIdentifi.MovePrevious
            If RSTIdentifi.BOF Then
                RSTIdentifi.MoveFirst
            End If
        Case 2
            RSTIdentifi.MoveNext
            If RSTIdentifi.EOF Then
                RSTIdentifi.MoveLast
            End If
        Case 3
            RSTIdentifi.MoveLast
            MsgBox "Final de la Lista", vbCritical, "Reparaciones"
    End Select
End Sub

Espero su ayuda Salu2..

Wenas tengo 2 problemas la

1era, es que necesito generar un codigo de esta manera "2009-0000001, 2009-0000002......" ok lo del 2009 es el año estoy utilizando este codigo

    With RSTIdentifi
        LimpiarTXT Me
        If .RecordCount > 0 Then
            .MoveLast
            lblNumReg.Caption = Format(Date, "YYYY") & "-" & String(7 - Len(Trim(Str(Val(!NRegistro) + 1))), "0") + Trim(Str(Val(!NRegistro) + 1))
        Else
            lblNumReg.Caption = Format(Date, "YYYY") & "-" & "0000001"
        End If
    End With

pero al darle Nuevo me genera de esta manera: 2009-0000001, y cuando agrego un segundo dato me muestra de esta manera 2009-0002010, como veran los ultimo 4 digitos se ponen como fecha 2010 no se a que se debe eso, me deberia de mostrar 2009-0000002, y asi suecivamente no se di alguien me puede hechar una manito.

y el 2do problema era sobre el DataCombo necesito que un Label me muestre la cantidad de Item que contiene el DataCombo pero no logro sacar la cantidad no si alguien me hecha una manito vi una propiedad VisibleCount, pero lo unico que me muestra es 0..???

wenas compañeros, eh alguien no tendra por ahi algun code para exportar datos de listview a la hoja de calculo del OpenOffice, yo tengo un code para exportar al excel que es de esta manera.

Private Sub Exportar()
    Dim objExcel As Excel.Application
    Dim Ancho As Integer
    Dim Dato As Variant
    Dim c As Integer
    Dim f As Integer
    Dim ColumnaExcel As Integer
 
    Set objExcel = New Excel.Application
 
    With objExcel
        .Visible = False
        .SheetsInNewWorkbook = 1 'Determina el numero de hojas que se mostrara en el Excel
        .Workbooks.Add 'Crea el Libro
        .Sheets("Hoja1").Name = "Registre"
        'Recorrer las celdas del Listview
 
        '----------------------------------------------
        ' Bucle principal
        '---------------------------------------------
 
        For f = 0 To ListSearch.ListItems.Count
            ColumnaExcel = 1
            For c = 1 To ListSearch.ColumnHeaders.Count
                If f = 0 Then ' Títulos
                    .Cells(1, ColumnaExcel) = ListSearch.ColumnHeaders(c).Text
                Else
                    If c = 1 Then
                        .Cells(f + 1, 1) = ListSearch.ListItems(f).Text
                    Else
                        Dato = ListSearch.ListItems(f).SubItems(c - 1)
                        ' Prevención para que las fechas pasen a Excel como tales
                        ' En mi listview los títulos de las columnas fecha empiezan con F.
                        If Left(ListSearch.ColumnHeaders(c).Text, 2) = "F." And Dato <> "" Then Dato = CDate(Dato)
                        .Cells(f + 1, ColumnaExcel) = Dato
                    End If
 
                    .Cells(f + 1, ColumnaExcel + 1).Select
                    ColumnaExcel = ColumnaExcel + 1
                End If
            Next
        Next
 
        '----------------------------------------------
        ' Fin del Bucle principal
        '---------------------------------------------
 
        .Range("A1").Select
        .Range(.Selection, .Selection.End(xlToRight)).Select
        PonerSombraCelda objExcel, 15, xlSolid
        PonerBordeCelda objExcel
 
        .Range(.Selection, .Selection.End(xlDown)).Select
        PonerBordeCelda objExcel
        .Cells.Select
        .Selection.WrapText = False
        .Cells.EntireColumn.AutoFit
        .Range("A1").Select
    End With
 
    'Preparar impresión en apasiado y a una hoja de ancho
    With objExcel.ActiveSheet.PageSetup
        .Orientation = xlLandscape
        .Zoom = False
        .FitToPagesWide = 1
        .FitToPagesTall = False
    End With
 
    'fraRegistros.Visible = False
    objExcel.Visible = True
    Set objExcel = Nothing
 
    Screen.MousePointer = vbDefault
End Sub
 
Private Sub PonerBordeCelda(Objeto As Excel.Application)
    With Objeto
    .Selection.Borders(xlEdgeLeft).Weight = xlThick
    .Selection.Borders(xlEdgeTop).Weight = xlThick
    .Selection.Borders(xlEdgeBottom).Weight = xlThick
    .Selection.Borders(xlEdgeRight).Weight = xlThick
    .Selection.Borders(xlInsideVertical).Weight = xlThin
    .Selection.Borders(xlInsideHorizontal).Weight = xlThin
    End With
End Sub
 
Private Sub PonerSombraCelda(Objeto As Excel.Application, ColorIndex As _
    Integer, Pattern As Integer)
 
    With Objeto.Selection.Interior
        .ColorIndex = ColorIndex
        .Pattern = Pattern
    End With
End Sub
 

De esa manera exporto mi datos a Excel pero no tengo la mas remota idea para enviar los datos al OpenOffice estuve investigando en Google y no encontre ningun ejemplo como en el trabajo han estado instalando el Open y weno me pidieron que tambien los datos que tengo se exporten al open, alguien me puede decir al menos de donde sacar informacion al respecto gracias, Salu2....

Wenas mi duda es la siguiente se puede agrupar datos repetidos de cirrta columna X en datareport weno algo asi



como ven en la primera columna son dependencias que se repiten y para evitar eso keria hacer algo asi pero no se si se podra o si se puede me podrian decir mas o menos de como podria hacerlo

Wenas tengo un problemilla con el ListView eh alguien sabe como puedo saber el total de registros que se encuentra en el Listview, osea estoy asiendo una consulta mientras voy escribiendo en un text me van mostranto los datos en el listView, solo los datos que se asemejan a los que voy escribiendo en el text, por ejemplo hay 4 datos que se encuentren en el list entonces esa cantidad la quiero mostrar en un label que digas ma o menos; Total registros encontrado, 4 weno algo por el estilo. Alguna idea  

wenas eh, voy a empezar a manejar Base de Datos con SQL server pero eh visto por google varias versiones, la pregunta seria cual de las tantas versiones funciona de 10 con Visual Basic 6.0????   

Salu2.... 

Wenas a todos, disculpen por las molestias necesito de su ayuda eh miren, estoy desarrollando un sistema la cual hasta ahora todo bien pero tengo un problema, al guardar los datos los hago por medio de un text y un combo y los concateno para k se guarde en un solo campo en la base de datos osea asi TxtCapRam + " " + CbCapacidadMe.Text ok hasta ahi todo bien luego eso lo muestro en un ListView el problema esk al darle doble click para poder editar necesito, lo que junte anteriormente que me devuelva cada dato que ingrese, osea en el text y del combo, bueno en este caso estoy ingresando en el text: 1234 y en el combo MHZ.

intente asiendo algo asi

.TxtMVeloci = Left(ListPlanilla.SelectedItem.ListSubItems(10).Text, 4)
.CbMBus = Right(ListPlanilla.SelectedItem.ListSubItems(10).Text, 3)

pero el problema esk en el text no ingreso siempre 4 digitos, tambien ingreso 2, 3..
y en el combo tengo cargado: MHZ, GB eh ahi el problema

Wenas compañeros, eh llevo un buen tiempito tratando de registrar el VB6IDEMouseWheelAddin.dll para que me funciona la rueda del mouse en el IDE de VB pero no logro registrarla ya eh buscado por google tratando de encontrar alguna solucion pero nada no se si ah alguien de ustedes les habra pasado lo mismo que yo, bueno no se si alguno de ustedes tienes algun metodo para poderlo registrar sin problemas les estaria muy agredecidos  

Slu2...

ehhh wenas; eh no se si alguien sabra como puedo eliminar los .tmp que se generan al momento de utilizar los Reportes, weno eso para i es un poko incomodo, en si alguien sabe como puedo eliminarlos automaticamente eh por ejemplo al finalizar el proyecto???

les estaria muy agradecido si me hecharan una manito Salu2.