Mensajes

Estoy siguiendo estos pasos:

Add the desired assembly (stdlib.dll) to the project's resources.
   Go to the Resources tab of the Project Properties and choose Add Resource > Add Existing File...
   Switch to the Application tab and click on the View Application Events button.

   Add this code to the ApplicationEvents.vb code that opens.

Código (vbnet) [Seleccionar] Expandir

   Private Sub AppStart(ByVal sender As Object,
     ByVal e As Microsoft.VisualBasic.ApplicationServices.StartupEventArgs) Handles Me.Startup
       AddHandler AppDomain.CurrentDomain.AssemblyResolve, AddressOf ResolveAssemblies
   End Sub

   Private Function ResolveAssemblies(sender As Object, e As System.ResolveEventArgs) As Reflection.Assembly
       Dim desiredAssembly = New Reflection.AssemblyName(e.Name)

       If desiredAssembly.Name = "the name of your assembly" Then
           Return Reflection.Assembly.Load(My.Resources.STDLIB) 'replace with your assembly's resource name
       Else
           Return Nothing
       End If
   End Function

   Now compile your project and you'll have the dependent assembly incorporated into the output as a single file.

El problema es que lo he hecho todo, pero me da error el "applicationEvents.vb"

Código [Seleccionar] Expandir

Error 1 Statement is not valid in a namespace. C:\Users\Administrador\Desktop\WindowsApplication19 - copia - copia\ApplicationEvents.vb 1 1 WindowsApplication19


Mi ApplicationEvents estaba vacío al abrirlo, no se si ese puede ser el error, quizás me falta algo, solo tengo esto :

Código (vbnet) [Seleccionar] Expandir

Private Sub AppStart(ByVal sender As Object,
 ByVal e As Microsoft.VisualBasic.ApplicationServices.StartupEventArgs) Handles Me.Startup
   AddHandler AppDomain.CurrentDomain.AssemblyResolve, AddressOf ResolveAssemblies
End Sub

Private Function ResolveAssemblies(sender As Object, e As System.ResolveEventArgs) As Reflection.Assembly
   Dim desiredAssembly = New Reflection.AssemblyName(e.Name)

   If desiredAssembly.Name = "Ookii.Dialogs.dll" Then
       Return Reflection.Assembly.Load(My.Resources.Ookii.Dialogs) 'replace with your assembly's resource name
   Else
       Return Nothing
   End If
End Function

[^H.*$]

^H.*$ es una "Regular expresion" (o RegEx). http://es.wikipedia.org/wiki/Regex
Es bastante fácil, busca cualquier línea cuya PRIMERA letra séa "H" seguida de cualquier serie de caracteres.

En ese code entra en juego variables expandidas y asignación de nombres de variables dinámicas.

query[X] es el nombre que el autor del código ha querido darle a la variable, podría haberle asignado cualquier otro nombre, con o sin [], eso no tiene importancia, y X es el número de la variable !count!.

En el código de tu ejemplo supongo que también falta un buen trozo en el primer FOR, porque no tiene sentido crear esas variables si si la variable !count! no cambia de valor, por ahí debe haber un "Set count+=1" que no aparece... Asumiendo eso:
Por cada coincidencia que encuentra FINDSTR, aumentaría la variable !COUNT! +1 número, y se crearían variables con este nombre:

Código [Seleccionar] Expandir

query[1]
query[2]
query[3]
etc...

a cada variable se le asigna como valor la palabra encontrada.

Y como funciona un FOR /F y FOR /L lo puedes buscar tu mismo. http://ss64.com/nt/for.html

saludos

¿SelectedPath?

ah... la propiedad selectedpath sirve para lo mismo? pues me lo apunto para la próxima

estoy usando un control personalizado "VistaFolderBrowserDialog", y me acabo de dar cuenta que no necesito indicar el "rootfolder" para que recuerde la ultima carpeta seleccionada  , perfecto.

Un saludo!

[Nov]

¿Lo que necesitas es mostrar un path específico seleccionado, o limitar el scope de browser solamente a esa carpeta y las subcarpetas?

Saludos

Lo primero, sí.

Me gustaria que el dialogo pudiese abrirse en cualquier lugar del PC, no limitarlo a la enumeración de "System.Environment.SpecialFolder"

Y si para eso tengo que crear mi propia enumeración, pues la creo, pero ya has visto mi FAIL 

Gracias Nov

Hola,

Lo que necesito es usar un string, por ejemplo "C:\Carpeta" en la propiedad .RootFolder del FolderBrowserDialog, que usa una enumeración.

He intentado crear mi propia enumeración, pero no lo consigo... algo estaré haciendo mal:

Código (vbnet) [Seleccionar] Expandir

Enum lastfolder
   last = "C:\carpeta"
End Enum

Código (vbnet) [Seleccionar] Expandir

   Public Sub C1Button3_Click(sender As Object, e As EventArgs) Handles folderbutton.Click
       Dim folderselect As New VistaFolderBrowserDialog
       folderselect.RootFolder = lastfolder.last
       folderselect.ShowNewFolderButton = True
...
   End Sub

[N]

Yo no pienso instalar como SO principal Windows 8 hasta que saquen el primer SP, asíN de claro, no me gusta el riesgo de un SO nuevo.

PD: Buen título el de tu post .

Ahí la tienes  :

Buenisimo, que fácil!

Gracias Hdm.

[EDITO]

-¿Puedo editar un .swf y quitarle frames?

Claro que puedes, escoje\descarga tu editor favorito de flash y corta los frames.

EDITO: Aunque sobre la edición de animación no tengo ni idea, me parece que se puede cifrar un swf como los PDF y tál, es decir, que si es un SWF privado y con contraseña..olvídate, pero no estoy muy seguro de si los hay privados, hace mucho tiempo que no toco el tema, pero vamos, que generalmente los puedes editar.

-¿Puedo colocar el .swf de alguna manera como fondo de escritorio?

¿Hay algo en la "multimedia" que no se pueda hacer?, jeje.

Aunque para crear la dreamscene me parece que primero tendrás que convertir el SWF a WMV (formato de Microsoft, como no... ), no estoy muy seguro, (Pero bueno, de eso ya se encargará el programa que utilizes para hacer el "fondo viviente" ).

Y aparte de eso, necesitas el activador dreamscene para Windows 7 (Si no lo tienes).

Mira, he encontrado esta estupenda guía donde además mencionan la información sobre el activador, 2x1, toma: http://www.howtogeek.com/howto/21102/create-your-own-windows-dreamscene-with-windows-live-movie-maker/

Saludos.

Prueba con el evento MouseWheel. Es el evento encargado de manejar el Scrolleo a través de la rueda del ratón.

Saludos!

Pues sí, gracias Kubox

Aunque...es un delito que pasen estas cosas en un winform diseñando en una suite del año 2012 (VS2012)...

esto es un apaño muy pero que muy grande, porque visuelmente queda como una mi****, y ya me he asegurado por varios expertos (Aparte de tí, Kubox) de que no hay otra alternativa mejor que hacer esto:

Código (vbnet) [Seleccionar] Expandir

   ' scrollbar
   Private Sub Panel1_Scroll(sender As Object, e As ScrollEventArgs) Handles Panel1.Scroll
       Panel1.BackColor = System.Drawing.Color.Empty
       Panel1.BackColor = System.Drawing.Color.Transparent
   End Sub

   Private Sub Panel1_MouseScroll(sender As Object, e As MouseEventArgs) Handles Panel1.MouseWheel
       Panel1.BackColor = System.Drawing.Color.Empty
       Panel1.BackColor = System.Drawing.Color.Transparent
   End Sub

Es una mie****, pero es lo que hay.

Un saludo

[EDITO]

¿Porque pasa esto?


Este es el diseño de la app:



Y esto es lo que sucede si muevo el scroll hacia abajo (o hacia arriba)



La imagen de fondo la usa el form, el panel tiene un "backcolor" transparente, y en fin yo creo que la mezcla de coloresy transparentes y todo eos lo he configurado bien... si necesitan más información al respecto pidanme...



EDITO: He probado lo siguiente, pero solo da resultado si PINCHO en el scroll para moverlo, es decir, si uso la rueda del ratón el evento no se ejecuta...¿Como puedo reproducir este evento para la rueda dle ratón?...

Código [Seleccionar] Expandir

   Private Sub Panel1_Scroll(sender As Object, e As ScrollEventArgs) Handles Panel1.Scroll
       Me.BackgroundImage = My.Resources.blue_music_2961____copia
   End Sub
End Class