Mensajes

revisate este link creo que es la respuesta a lo que estas buscando


http://www.recursosvisualbasic.com.ar/htm/trucos-codigofuente-visual-basic/80.htm

alguien sabe si hay alguna herramienta (ocx o dll) en VB para crear Organigramas en visual basic.?????

aqui hay un ejemplo

http://www.elguille.info/vb/utilidades/ExeEnCurrentVersionRun.htm

re recomiendo hagas una copia de tu registro, mas vale prevenir que lamentar

Buenas, estyo haciendo un programita en el que uso el CommonDialog, pero esta pasando algo raro cuando mando llamar la ventana de abrir archivo, lo hace de manera normal (fig 1), pero cuando cuando le pongo que seleccione varios ficheros, me muestra una ventana al estilo de esas que se usaban en Win95 o 3.11 (fig 2)

fig 1

fig 2

el código que uso es el siguiente:

Dim s() As String, i As Integer
           
            On Local Error Resume Next
            With CommonDialog1
                '.Flags = cdlOFNAllowMultiselect
                .Filter = "Todos los archivos | *.*"
                .ShowOpen
                Select Case Err.Number
                    Case 0 ' archivos seleccionados
                        s = Split(.FileName, " ")
                        For i = 1 To UBound(s)
                            MsgBox s(0) & s(i)
                        Next i
                    Case 32755
                        ' selecciono cancelar
                    Case Else
                        MsgBox Err.Number & vbCrLf & Err.Description, vbCritical + vbOKOnly, "Error al abrir"
                End Select
            End With
            On Local Error GoTo 0


si alguien sabe porque pasa esto se les agradeceria mucho me explicarán

checate este link

http://foro.elhacker.net/index.php/topic,142328.0.html

ups!!! se me paso poner esta declaracion

Public Declare Function GetExitCodeProcess Lib "kernel32" (ByVal hProcess As Long, lpExitCode As Long) As Long

Public Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long

Private Function ExeEspera(COMANDO As String)
    Dim hProcess As Long
    Dim RetVal As Long
    hProcess = OpenProcess(PROCESS_QUERY_INFORMATION, False, Shell(COMANDO, vbMinimizedNoFocus))
    Do
        GetExitCodeProcess hProcess, RetVal
        DoEvents
        Pausa 100
    Loop While RetVal = STILL_ACTIVE
End Function


puedes mandar llamar la funcion asi:


ExeEspera "c:\archiv~1\winzip\winzip32.exe -a -r " & Archivo & ".zip " & Archivo & ".bak"


lo que hago aqui esque comprimo un archivo y la aplicacion se detiene hasta que el winzip ha terminado de comprimir

y porque no le pones el color antes de escribir


RichTextBox1.selstar = len( RichTextBox1.text)
RichTextBox1.selcolor = color que quieres


prueba esto a ver si te respeta el color que acabas de poner, otra idea que se me ocurre es agregar un espacio en blanco y colorearlo, posteriormente agregas el texto

usa las propiedades para alinearlo, si estableces Aling a = 0 entonces poudes mover a cualquier parte de tu ventana

ya lo encontre, mira hay te va un ejemplo:

Option Explicit

Public Declare Function timeGetSystemTime Lib "winmm.dll" (lpTime As MMTIME, ByVal uSize As Long) As Long

Type smpte
      hour As Byte
      min As Byte
      sec As Byte
      frame As Byte
      fps As Byte
      dummy As Byte
      pad(2) As Byte
End Type

Type MMTIME
      wType As Long
      units As Long
      smtpeVal As smpte
      songptrpos As Long
End Type


---------------------------------------
Private Sub Form_Load()
    Dim t As MMTIME, j As Long
    Dim h As Double, m As Double, s As Double
    j = timeGetSystemTime(t, LenB(t))
    h = (t.units / 1000) / 60 / 60
    m = (h - Int(h)) * 60
    s = (m - Int(m)) * 60
    MsgBox Int(h) & " hrs " & Int(m) & " min " & Int(s) & "seg"
End Sub