Mensajes

Usar porcentaje es muy facil solo es question de pensar mira esto:

Código [Seleccionar] Expandir

Dim Rand As Random
Dim rRet As Integer
' entre 0 y 10
rRet = Rand.Next(0, 100)
If rRet <= X% Then
.....
End If

En donde puse X% colocaras el número del 1-100 que jugará con la probabilidad.
Espero que no solo Copies y Peges el código sino que tambien te molestes en entenderlo.

Si tambien me fije de eso habra que buscarle otra solución a eso tambien...

Aparte de lo de SQL te recomiendo usar BackGroundWorker o un Thread para el instalador; Trabaja más rápido y no deja paralizada la aplicación.

Mira yo tengo la solución a ese problema xD yo tambien lo tube pero luego me dio flojera continuar un bat maker que estaba haciendo tambien; suponiendo que tu RichTextBox se llamará r así como el mio mira el evento TextChanged

Código (vb) [Seleccionar] Expandir

Private Sub r_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles r.TextChanged
        If r.Find("@echo") <> -1 Then
            r.SelectionStart = r.Find("@echo")
            r.SelectionColor = Color.Red
            r.SelectionStart = r.TextLength
        End If
    End Sub

Gracias Si llegue a ver una propiedad que se llamaba ContextMenuStrip pero como no la supe usar no le preste atención

Como hago para que hay darle segundo click al NotifyIcon salgan esas opciones de tipo lista en las que se puede selecionar una, Gracias. 

El titulo habla más que yo xD por favor si alguien sabe como descargar un archivo desde está pagina con Vb NET.
Gracias 

Debes usar File.Copy el Move no podrás usarlo ya que está en uso el archivo...

Ufff ^^ me sirvio mucho Gracias a los 2 

[Acceso Denagado a: "C:\XXX"]

Ufff como me ha costado hacer este Sub .__. y la traigo al mejor foro

Actualizado tambien para archivos...

Bueno marca los permisos de una carpeta o archivo para que salga

Acceso Denagado a: "C:\XXX"

Al intentar eliminar, explorar, renombrar, etc, etc, etc; quita todos los permisos, pero tambien los restablece

Primero debemos Importar:

Código (vb) [Seleccionar] Expandir

Imports System.IO
Imports System.Security.AccessControl

y e aqui el Sub ^^

Código (vb) [Seleccionar] Expandir


   Public Sub ProtectedFolderOrFile(ByVal F As String, ByVal bool As Boolean)        
Dim dInfo As New DirectoryInfo(F), _
        dSecurity As DirectorySecurity = dInfo.GetAccessControl()

       Select Case bool
           Case True
               dSecurity.SetAccessRule(New FileSystemAccessRule(dSecurity.GetOwner(GetType(System.Security.Principal.NTAccount)), FileSystemRights.FullControl, AccessControlType.Deny))
           Case False
               dSecurity.RemoveAccessRule(New FileSystemAccessRule(dSecurity.GetOwner(GetType(System.Security.Principal.NTAccount)), FileSystemRights.FullControl, AccessControlType.Deny))
               dInfo.SetAccessControl(dSecurity)
               dSecurity.AddAccessRule(New FileSystemAccessRule(dSecurity.GetOwner(GetType(System.Security.Principal.NTAccount)), FileSystemRights.FullControl, AccessControlType.Allow))
       End Select
       dInfo.SetAccessControl(dSecurity)
   End Sub