Temas

Como poder obtener el tamaño de un Picturebox deseo saber la dimensiones del Picturebox su Size en el proyecto?, ya se que se encuentra en propiedades pero deseo saber con un boton.

se podria cifrar un archivo txt y descifrar con alguna palabra clave y el resultado me lo de en un textbox, alguien tendra un ejemplo

Saludos como poder eliminar items en blancos que hay en una lista de un Listbox?? VB.NET

Saludos tengo un problema para leer un txt con un .bat, este .bat si me sirvio con rutas que no tienen espacios por ejemplo:
D:\CARPETA1\archivo.txt
pero si meto el .bat y el .txt en otra ruta que tenga espacio, ejemplo:
D:\CARPETA CON ESPACIO\archivo.txt
da un erro y solo pretende abrir la ruta hasta D:\CARPETA de ahi en adelante de ese espacio no poner completa la ruta, alguien me puede ayudar a solucionar esto.

Código (bash) [Seleccionar] Expandir

@echo off
set ruta= %~d0%~p0archivo.txt
echo %ruta%

for /f "tokens=*" %%x in (%ruta%) do (set psw=%%x)
echo %psw%
pause
exit

Saludos tengo un problema como abrir  la ruta  cd %psw% para ejecutar un archivo bat con start, alguien me puede ayudar


el archivo txt solo contiene en su linea D:\64

Código (bash) [Seleccionar] Expandir

@echo off

for /f "tokens=*" %%x in (C:\Users\64\Desktop\ruta.txt) do (set psw=%%x)

cd..
cd..
cd %psw%

start 2.bat
exit







Tambien tengo problema para abrir el mismo archivo, identificando donde estoy ejecutando el .bat y para abrir el mismo archivo .txt me marca que no lo puede encontrar el archivo txt para leer

Código (bash) [Seleccionar] Expandir

@echo off
set ruta= %~d0%~p0ruta.txt
echo %ruta%
pause

for /f "tokens=*" %%x in (%ruta%) do (set psw=%%x)


echo %psw%

pause
exit

Buen día, se podría  abrir un txt que tiene rutas y su contenido ocuparlo por ejemplo en Robocopy (rutas que contiene el txt) /E

Es posible que desde el portapapeles se ejecute el código que queremos ejecutar, es decir si copio en un block de notas está línea

Código (bash) [Seleccionar] Expandir

Echo Ejecutar & robocopy "C:\Users\me\Documents\a " "F:\Users\me\Documents\b" & echo terminó & exit

El batch pegue está línea y ejecute todas las órdenes que contiene la línea.

Saludos busco como mover multiples archivos  y pasarlos a otra ruta no busco mover la carpeta raíz solo todos los archivos que contenga.

Yo pensé que algo así podría pero no es la respuesta ya que tengo que especificar un archivo



My.Computer.FileSystem.MoveFile(LabelORIGEN.Text & "\*.*", LabelDESTINO.Text)

Saludos tengo una ruta por guardar en una base de datos soy nuevo en sql no tengo idea en que tipo de dato catalogarla, hice un ejemplo con guardar rutas grandes y pequeñas ejemplo:

C:\carpetas\datos\obtencion de datos para guardar\listado de datos\datos completo\listado de clientes\este es listado de datos para guardar en la base de dato.txt

C:\carpetas\datos\obtencion de datos para guardar listas.txt

la modifique en (editar esquema de tabla) en vb.net le cambie el valor por nvarchar en longitud le he modificado hasta 4000 pero aparece en el listado de DataGridView algunos datos con MaxLength las rutas grandes en texto, alguien me puede aconsejar un valor para este tipo de rutas

Buen dia estoy desarrollando un ejercicio el cual es de buscar extensiones y agregarlas a un ListBox, de ahí programo un timer para que seleccione dato por dato de la lista y la agregue a una base de datos, tengo el problema que agregar unos cuantos y en cierto momento se detiene la depuración marcando error en la linea para agregar datos a la base de datos, les dejo mi ejercicio espero me puedan ayudar.

Código (vbnet) [Seleccionar] Expandir

Imports System.IO
Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim ExtensionBuscada As String = "*.txt"
        Dim dirInfo As New DirectoryInfo(TextBox1.Text)
        Dim dirsInfo() As DirectoryInfo = dirInfo.GetDirectories("*.*", SearchOption.TopDirectoryOnly)

        For Each di As DirectoryInfo In dirsInfo
            Try
                Dim filesInfo() As FileInfo = di.GetFiles(ExtensionBuscada, SearchOption.AllDirectories)
                For Each fichero As FileInfo In filesInfo
                    ListBox1.Items.Add(fichero.FullName)
                    Label6.Text = ListBox1.Items.Count
                Next

            Catch ex As UnauthorizedAccessException
                ' Controlo el error de acceso no autorizado a carpeta

            End Try
        Next
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Timer1.Start()
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Me.ListBox1.SelectedIndex = 0
        Button2_Click(sender, e)
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

        If ListBox1.Items.Count > 0 Then
            Label6.Text = ListBox1.Items.Count
            Me.ListBox1.SelectedIndex = 0
            Label1.Text = ListBox1.SelectedItem.ToString

            Label7.Text = Val(Label7.Text) + Val("1")
            Me.DATOSTableAdapter.Insert(Label7.Text, Label1.Text, Label3.Text, Label4.Text, Label5.Text) 'INSERTAR NUEVO DATOS

            ListBox1.Items.Remove(ListBox1.SelectedItem)



        Else
            Label6.Text = ListBox1.Items.Count
            Me.DATOSTableAdapter.Fill(Me.CAPTURADataSet.DATOS)
            Timer1.Stop()

        End If

    Private Sub DATOSBindingNavigatorSaveItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DATOSBindingNavigatorSaveItem.Click
        Me.Validate()
        Me.DATOSBindingSource.EndEdit()
        Me.TableAdapterManager.UpdateAll(Me.CAPTURADataSet)

    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'TODO: esta línea de código carga datos en la tabla 'CAPTURADataSet.DATOS' Puede moverla o quitarla según sea necesario.
        Me.DATOSTableAdapter.Fill(Me.CAPTURADataSet.DATOS)

    End Sub


End Class




Si funciona, agrega bien pero en cierto tiempo de que agrego algunos detiene la depuración marca error en la linea de agregar a la bd.

Código (vbnet) [Seleccionar] Expandir

Me.DATOSTableAdapter.Insert(Label7.Text, Label1.Text, Label3.Text, Label4.Text, Label5.Text) 'INSERTAR NUEVO DATOS

Saludos tengo un proyecto el cual es hacer que se ejecute su pantalla completa, y se desactive el fullScreen con cualquier presion de tecla, si llego a activar la pantalla completa, pero al momento de desactivar la pantalla completa si funciona con algunas teclas, menos con los f1-f2 mas los siguiente y las fechas de direccion, cuando presiono las fechas de direccion deshabilita las teclas que si sirven  he ahi cuando pierdo el control del programa, alguien me puede ayudar para desactivar el fullScreen con todas las teclas del teclado y no me creé esos errores.

   

Código (vbnet) [Seleccionar] Expandir

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        AxWindowsMediaPlayer1.URL = Label1.Text
    End Sub

    Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
        If e.KeyCode = Keys.F5 Then
            Me.AxWindowsMediaPlayer1.fullScreen = True
        End If
    End Sub


    Private Sub AxWindowsMediaPlayer1_KeyDownEvent(ByVal sender As Object, ByVal e As AxWMPLib._WMPOCXEvents_KeyDownEvent) Handles AxWindowsMediaPlayer1.KeyDownEvent
        Me.AxWindowsMediaPlayer1.fullScreen = False
    End Sub