Mensajes

  Buenísimo!! tremendo aporte NYlOn.. ahora si que estas hecho un hacker de alta peligrosidad

Juaz, vaya seguridad de Windows. Copié el ejecutable del bloc de notas y le cambié el nombre a winlogon.exe, no lo deja eliminar de la lista de procesos 

Cada día me sorprendo más de este sistema xD.

Bueno mi modesta opinión debian haber pensado los de microsoft en no permitir que dos procesos de igual nombre esten corriendo al mismo tiempo, pero en fín, a lo mejor es así por razones que ignoro.. solo estoy conjeturando..

Salu2

 http://www.geocities.com/laser252003/VB.Net_ManualEs.zip

 
Perdon! Si el link no funciona demen un FTP donde subirlo
Salu2

Código [Seleccionar] Expandir

On Error GoTo line2
   
Dim x
x = GetAttr(App.path & "\archivo.txt") 'Si no existe genera un error.

line1:
Open App.path & "\archivo.txt" For Append As #1 'Escribe el contenido de las cajas de texto
   Write #1, Text1
   Write #1, Text2
Close

Exit sub

line2:
Open App.path & "\archivo.txt" For Output As #1 'Lo crea
Close
goto line1


Mucha Suerte!

Pues lo poco que sé, es que si compilas para código rápido la dll pesa más y sino te reduce el tamaño de la misma pero es más lento.
Te sugiero que consultes la ayuda MSDN que viene con VB o en la misma página de microsoft
http://msdn.microsoft.com/

Salu2

  Gracias a todos por vuestra gran ayuda.. pues hasta el momento no me habia puesto para esto de aplicar los metodos graficos en VB.
Saludos.

Hola foro! Les parecera broma pero necesito que alguien me oriente como hacer una aplicacion parecida al Paint de windows con VB donde pueda manipular posteriormente la imagen del dibujo mediante codigo. Lo que necesito es crear un campo donde poder dibujar firmas digitales para poner en ciertos documentos. Ya he visto un control o driver para esto pero solo me sirve para el mouse y necesito que trabaje tambien con lapiz opticos y pantallas tactiles. Donde algo como el Paint si me serviria. Alguien sabe como usar algun componente del propio Paint presente en windows para tales efectos o mejor aun mediante las Apis?

Salud2 y gracias por adelantado!

Hola foro! Les parecera broma pero necesito que alguien me oriente como hacer una aplicacion parecida al Paint de windows con VB donde pueda manipular posteriormente la imagen del dibujo mediante codigo. Lo que necesito es crear un campo donde poder dibujar firmas digitales para poner en ciertos documentos. Ya he visto un control o driver para esto pero solo me sirve para el mouse y necesito que trabaje tambien con lapiz opticos y pantallas tactiles. Donde algo como el Paint si me serviria. Alguien sabe como usar algun componente del propio Paint presente en windows para tales efectos o mejor aun mediante las Apis?

Salud2 y gracias por adelantado!

Código [Seleccionar] Expandir

' Quitar la clave
Dim s As String
'
s = mReg.GetRegString(cvRun, txtClave.Text)
If s <> "" Then
    If mReg.DeleteValue(cvRun, txtClave.Text) = ERROR_NONE Then
        LabelInfo.Caption = "La clave se ha eliminado del registro."
    Else
        LabelInfo.Caption = "ERROR al eliminar la clave."
    End If
Else
    LabelInfo.Caption = "La clave NO estaba creada."
End If
http://www.elguille.info/vb/utilidades/ExeEnCurrentVersionRun.htm

Salu2

Si lo que deseas es que tu Form este siempre por encima de todas las demas ventanas de windows usa este

Código [Seleccionar] Expandir

Const SWP_NOSIZE = &H1
Const SWP_NOMOVE = &H2
Const FLAGS As Long = SWP_NOMOVE Or SWP_NOSIZE
Const HWND_TOPMOST = -1
Const HWND_NOTOPMOST = -2

Private Declare Function SetWindowPos Lib "user32" ( _
  ByVal hwnd As Long, ByVal hWndInsertAfter As Long, _
  ByVal X As Long, ByVal Y As Long, ByVal cx As Long, _
  ByVal cy As Long, ByVal wFlags As Long) As Long
   
Private Sub Form_Load()
SetWindowPos Me.hwnd, _
    HWND_TOPMOST, 0, 0, 0, 0, FLAGS
End Sub

Perdon, no me fije que era el mismo code de Anhur

Salud2

Option Explicit
Public Brojo, Bverde, Bazul As Integer
Public Frojo, Fverde, Fazul As Integer

Option Explicit - Obliga a declarar todas la variables
Public Brojo, Bverde, etc As Integer - Declaracion Publica de las vairables del tipo Integer (numero Entero)

Private Sub Form_Load()
   Brojo = 0
   Bverde = 0
   Bazul = 0
   Frojo = 255
   Fverde = 255
   Fazul = 255
   lblCuadro.BackColor = RGB(Brojo, Bverde, Bazul)
   lblCuadro.ForeColor = RGB(Frojo, Fverde, Fazul)
End Sub

Aqui se asigna los valores a las variables
al cargar el Form y ademas se aplican los colores con RGB

Private Sub optColor_Click(Index As Integer)
   If Index = 0 Then  'Se pasa a cambiar el fondo
      Frojo = hsbColor(0).Value
      Fverde = hsbColor(1).Value
      Fazul = hsbColor(2).Value
      hsbColor(0).Value = Brojo
      hsbColor(1).Value = Bverde
      hsbColor(2).Value = Bazul
   Else               'Se pasa a cambiar el texto
      Brojo = hsbColor(0).Value
      Bverde = hsbColor(1).Value
      Bazul = hsbColor(2).Value
      hsbColor(0).Value = Frojo
      hsbColor(1).Value = Fverde
      hsbColor(2).Value = Fazul
    End If
End Sub

Aqui obviamente se trata de una estructura condicional IF, para altenar si se cambia el color del fondo o el texto de primer plano.
Usa la propiedad Index en una matrix de un control Option, en dependencia del valor la estructura IF selecciona uno u otro.

Salud2