Mensajes

Como puedo validar la contraseña que he puesto en el "Form1" y en el "Form2" pueda cambiarla
Tengo esto en el "Form1"

Código (vbnet) [Seleccionar] Expandir


If TextUser.Text = "Test" And TextPass.Text = "123" Then
            Form2.Show()
            Me.Visible = False
        Else
            MsgBox("Incorrect.")
        End If


El usuario es "Text" y la contraseña es "123"

Tengo una opción dentro de otro "Form" en la que deseo cambiar la contraseña

Algo asi


Pero no se bien como hago el procedimiento

Esto es lo que trato de hacer

Código (vbnet) [Seleccionar] Expandir


If Form1.TextPass.Text = "123" Then
            NewPass.Enabled = True
            RNewPass.Enabled = True
            Form1.TextPass.Text = RNewPass.Text
            Form1.TextPass.Text = NewPass.Text
        Else
            NewPass.Enabled = False
            RNewPass.Enabled = False
        End If


Bien, ahora estoy intentando algo como esto, algo simple no quiero complicarme tanto, ya que apenas estoy aprendiendo

Código (vbnet) [Seleccionar] Expandir


If TextUser.Text = "User123" Or TextPass.Text = "Password123" Then
           Form2.Show()
       Else
           MsgBox("Incorrect.")
       End If


Pero al poner "User" este automáticamente abre el "Form2"

Yo quiero, que se necesite poner el TextUser.Text y luego el TextPass.Text y hay si se pueda abrir el Form2

Hola Benjo, gracias por responder pero mira este error que me da al tratar de guardar los datos

Hola foro, estoy intentado hacer un programa que guarde mis contraseñas "Soy algo olvidadizo"  

El - Necesito que aqui se guarden todos los cambios y que al abrir el programa los datos sigan hay guardados y cargados
Edito: Estoy atascado en esta parte
Quiero que al editar los nombres, contraseñas o el sitio web este lo guarde automaticamente, y al abrir el programa cargan los mismos datos que deje ya antes

Código (vbnet) [Seleccionar] Expandir


Dim saveFileDialog1 As New SaveFileDialog()

       saveFileDialog1.Filter = "txt files (*.txt)|*.txt|All files (*.*)|*.*"
       saveFileDialog1.FilterIndex = 2
       saveFileDialog1.RestoreDirectory = True

       If saveFileDialog1.ShowDialog() = DialogResult.OK Then
           Using sw As New IO.StreamWriter(saveFileDialog1.FileName, False)
               'write each row of the ListView out to a tab-delimited line in a file
               For i As Integer = 0 To Me.ListView1.Items.Count - 1
                   sw.WriteLine(((ListView1.Items(i).Text & vbTab) + ListView1.Items(i).SubItems(0).ToString() & vbTab) + ListView1.Items(i).SubItems(1).ToString())
               Next
           End Using
       End If


Es algo así como Lightshot, muy bueno 

Me dio la duda de saber que era ese tal "Lightshot" y bueno lo descargue, ahora se me bajo el auto-estima Jajajaj 

Es evidente que hay desarrolladores y/o programadores con mas experiencia

Hola.

Queria compartir con ustedes este programa, la idea fue basicamente del programa "SnippingTool" - Recortes de Windows



La interfaz del programa es muy simple.


Tiene 4 Formatos de imagenes ", , , "



Se pueden escoger entre 3 Tipos de bordes al usar la función de "Recorte rectangular"



Tiene un Submenu, para facilitar la tarea



Modo "FullScreen"



Posee una Lupa "Magnifying Glass"



La primera vez que el programa se ejecuta, se crea automáticamente la carpeta "Screenshots" en la biblioteca "MyPictures"
Se puede acceder a dicha carpeta, pulsando el botón



Actualmente posee 2 Tipos de configuración



Poner a la bandeja del sistema




Poner la ventana siempre visible


Bueno es algo muy simple, facilita la tarea de estar yendo a "Paint" y recortar .Etc eso es todo espero que les guste

Host: RGhost
Descargar
Compilado en .exe - el modo "lupa no funciona" tratare de arreglaro

PD: Creo que me equivoque de sección, puden moverlo al foro de "Software"

Hola tengo un problema algo grande, estoy con el proyecto de crear un programa que cree una carpeta o que se seleccione una carpeta personalizada para guardar Screenshots

Algo asi


Al abrir el programa se crea automaticamente la ruta "C:\Users\Tavito\Desktop\Screenshots"

Código (vbnet) [Seleccionar] Expandir


Imports System.IO 'Todo el codigo esta resumido por partes
Public Class Form1
   Private Folder As String 'Crea la ruta de la carpeta "Screenshots"

   Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
       Folder = Path.Combine(Environment.GetFolderPath(Environment.SpecialFolder.Desktop), "Screenshots")
       If Not Directory.Exists(Folder) Then 'Si no existe dicho directorio
           Directory.CreateDirectory(Folder) 'Entonces lo crear
       End If
       LabelFolder.Text = Folder 'Y en el "LabelFolder" muestra la ruta que se creo
   End Sub


Pero, si yo quiero seleccionar otra carpeta

Código (vbnet) [Seleccionar] Expandir


Private Sub CheckFolder_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckFolder.CheckedChanged
       If CheckFolder.Checked = True Then
           FolderBrowserDialog1.ShowDialog()
           LabelFolder.Text = FolderBrowserDialog1.SelectedPath() 'Aqui va la ruta de la carpeta que se selecciono
       Else
           LabelFolder.Text = Folder 'Si por algun motivo quiero usar nuevamente la carpeta "Screenshots". Pero la elimine por accidente
           CheckFolder.Checked = False
           Folder = Path.Combine(Environment.GetFolderPath(Environment.SpecialFolder.Desktop), "Screenshots")
           If Not Directory.Exists(Folder) Then
               Directory.CreateDirectory(Folder)
           End If
       End If
   End Sub


El proceso de crear la carpeta no me da ningun problema, el problema esta aqui al tomar la captura de pantalla

Resumire el codigo por partes

Código (vbnet) [Seleccionar] Expandir

Imports System.Drawing
Imports System.Windows.Forms
Imports System.Drawing.Imaging
Public Class Form1

   Private Folder As String 'Crea la ruta de la carpeta
   Private Nombre As String = "Image " 'Aqui asigna el nombre a todas las imagenes
   Private Template As String

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
       'Aqui almacena los formatos de las imagenes
       ComboBox1.DataSource = New ImageFormat() {ImageFormat.Bmp, ImageFormat.Gif, ImageFormat.Jpeg, ImageFormat.Png, ImageFormat.Tiff}
   End Sub


   Dim bmp As Bitmap
   Dim graphics As Graphics

   Private Sub ButtonScreen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonScreen.Click
       Dim SearchPattern As String = String.Concat(Nombre, "??.", ComboBox1.SelectedItem)
       Dim Files As String() = Directory.GetFiles(Folder, SearchPattern)
       Dim Numb As Integer = 0
       If Files.Length > 0 Then
           Array.Sort(Files)
           Numb = Integer.Parse(Files(Files.Length - 1).Substring(Template.Length, 2)) + 1
       End If
       Dim Bmp As New Bitmap(Screen.PrimaryScreen.Bounds.Width, Screen.PrimaryScreen.Bounds.Height, PixelFormat.Format32bppArgb)
       Using Grap As Graphics = graphics.FromImage(Bmp)
           Grap.CopyFromScreen(Screen.PrimaryScreen.Bounds.X, Screen.PrimaryScreen.Bounds.Y, 0, 0, Screen.PrimaryScreen.Bounds.Size, CopyPixelOperation.SourceCopy)
           Dim Format As ImageFormat = DirectCast(ComboBox1.SelectedItem, ImageFormat)
           Bmp.Save(String.Concat(Template, Numb.ToString("00"), ".", Format), Format)
       End Using
   End Sub

El problema esta aqui

Código (vbnet) [Seleccionar] Expandir

Dim Files As String() = Directory.GetFiles(Folder, SearchPattern)

De que Folder, no vale lo que yo selecciono en el "BrowserDialog1.SelectedPath"

Solo funciona si dejo la ruta que yo mismo proporciono al abrir el programa

Folder = Path.Combine(Environment.GetFolderPath(Environment.SpecialFolder.Desktop), "Screenshots")


Ahora si la duda como hago para que

Código (vbnet) [Seleccionar] Expandir

Dim Files As String() = Directory.GetFiles(Folder, SearchPattern)
Almacene la ruta seleccionada en el "LabelFolder" y guarde las imagenes en la carpeta seleccionada

[Usuario]

Hola logre añadir "Nuevos elementos" en el control "Enviar a "
pero cuando lo uso, este solo copia los archivos a la carpeta "Proyectos" alguna forma de que este los "Corte" o "Mueva" sin que en el escritorio quede nada

Para lo de agregar elementos
C:\Users\Usuario\AppData\Roaming\Microsoft\Windows\SendTo

[GeShi]

Vas bien con la estructura, pero no necesitas acceder a ninguna propiedad del botón. Lo que tienes que hacer es declarar una variable que te permita saber en qué estado se encuentra la aplicación. Pero si lo que quieres es tan básico como que si el Form2 es visible haga una cosa y si no lo es haga otra cosa, entonces se me ocurre que el código sería:

Código (vbnet) [Seleccionar] Expandir


Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If Form2.Visible = False Then
            Form2.Show()
        Else
            'Codigo en caso de que el formulario sea visible
        End If
End Sub


Aquí sólo se comprueba si el formulario es visible o no.

Por cierto utiliza las etiquetas de código. Donde dice GeShi.

Lo de las etiquetas de codigo lo se es que andaba de apuros

Oye gracias xD intente de todas las maneras que se me ocurrieran pero ninguna de esas me dio

Oye muchas gracias ahora si, puedo seguir se te agradece un monton     

Hola

Estoy intentando hacer que un boton abra un Form2, y que luego ese boton se pueda usar para otra funcion no se si me explico bien algo como esto


Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If Button1.(No se que poner aqui) Then
            Form2.Show()
        Else
            'Codigo
        End If