Sección de códigos , trucos y ejemplos para visual basic

234 - Acelerar la carga de datos en un control de Texto

Esto no es ninguna ciencia, pero para el que lo desconoce le puede venir bien.

El ejemplo muestra dos formas de cargar datos en controles de texto, como un RichTextbox o TextBox, en bucles largos donde las asignaciones de datos lentifican la carga.

El método lento, asigna en un bucle For una cadena directamente al control.

El método mas rápido utiliza una variable en ves de asignar los datos al control, y luego de que finaliza el bucle se asigna dicha variable

Para el ejemplo colocar un richTextBox o TextBox, y dos Commandbutton, Command1 y Command2.

Nota: En la prueba que hice, el método rápido como se ve en la imagen, tardó unos 6 segundos, mientras que de la otra forma tardó unos 25 segundos.

vista del formulario con el resultado de la prueba de la carga de datos en el richtextbox

Código fuente en el formulario

Option Explicit Const Vueltas As Long = 2500 Private Sub metodo_Rapido() Dim sValue As String Dim i As Long Dim lTimerInit As Long lTimerInit = Timer For i = 1 To Vueltas sValue = sValue & vbNewLine & vbNewLine & "Linea: " & i DoEvents Me.Caption = CStr(CByte((100 * i) / Vueltas) & " %") Next RichTextBox1.Text = sValue MsgBox "Tiempo trancurrido: " & CLng(Timer - lTimerInit) & " Segundos" End Sub Private Sub metodo_Lento() Dim lTimerInit As Long Dim i As Long lTimerInit = Timer With RichTextBox1 For i = 0 To Vueltas .Text = .Text & vbNewLine & vbNewLine & "Linea: " & i Me.Caption = CStr(CByte((100 * i) / Vueltas) & " %") DoEvents Next End With MsgBox "Tiempo trancurrido: " & CLng(Timer - lTimerInit) & " Segundos" End Sub Private Sub Command1_Click() Call metodo_Rapido End Sub Private Sub Command2_Click() Call metodo_Lento End Sub Private Sub Form_Load() Command1.Caption = " Mas rápido " Command2.Caption = " Mas lento " End Sub

Recursos visual basic 6.0 - enlaces relacionados

Buscar en Recursos vb