Mensajes

[BlackzeroX]

tio por eso te dejo BlackzeroX el codigo en donde estaba malo
lo escrito "nombre.txt" donde "nombre" debe ser un textbox pero noce si lo tienes agregado como te digo ejecuta y agregale el codigo de BlackZeroX eso es para que la imagen se guarde en el C
y luego compruebasy la puedes modificar

el codigo ya lo corregi con la linea que me dejo black, y es ese el resultado que logre, que me de error, y luego me deje hacerlo bien... el textbox lo tengo, el formulario tiene 1 textbox (nombre) y los 2 botones

Ese fue un error de copie y pegue, que en todos los intentos que hice para poder intentar que funcione quedo así.... ahora a lo que me pone mal, es que cuando le doy ejecutar y intento, me dice error 308, el valor de la propiedad no es válido, le doy depurar y intento capturar denuevo y me guarda la imagen y todo lo más bien. Esa es la parte que me deja 

ahora está asi:

SavePicture Clipboard.GetData, (Path & nombre.Text & ".bmp")

y aún asi dice eso...

Gracias de antemano

[negrita]

Hola! Encontre varios temas sobre ésto en las ayudas y tutoriales pero en los códigos siempre me falla cuando guardo la imagen, asi que entre todos hice uno.. que me funciona pero solo me guarda 1 imagen y luego larga error.... si estuviera mal no me dejaria ni guardar la primera =S

Les dejo el código y la línea donde me tira error en negrita

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 Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Dim nombre As String


Private Sub capturar_Click()
'capturar pantalla y guardarla
keybd_event 44, 0, 0&, 0&
        If nombre.Text = "" Then
            Dim respuesta As String
            respuesta = MsgBox("Ingrese nombre", vbOKOnly, "Nombre")
        Else
            SavePicture Clipboard.GetData, (Path & nombre.Text& ".bmp")
        End If
End Sub

Private Sub cerrar_Click()
End
End Sub

Private Sub Form_Load()
Clipboard.Clear
Me.WindowState = 0
SetWindowPos Me.hwnd, _
    HWND_TOPMOST, 0, 0, 0, 0, FLAGS
End Sub

Logro que me guarde una imagen y luego me da error de compilación, a ver si alguien me puede decir porque! Soy nuevito con visual

Hola... Soy bien nuevo por aki... y necesito crear para un ejercicio del cole un programa que me pueda leer un numero y lo devuelva en tipo texto.
Por ejemplo:

1226
y que devuelva:
mil doscientos veinte y seis....

no se como hacerlo... si alguien pudiera ayudarme =S no se ni como empezar (mi profe no sabe 3 carajos de programacion ¬¬)