Indetectables

Tengo unos problemitas con esta función..

Supongamos que mi código es el siguiente:

Dim Fan As String, Breaker As String, Mayhem As String

Open Flesh.FileName For Binary As #1
Fan = Text2.Text
Breaker = Text3.Text - Text2.Text
Mid([b]Flesh.FileName[/b], Breaker, Fan) = Mayhem
Close #1

El error es el marcado en negrita... Dice que necesito asignar una variable.. Pero si, por ejemplo, agrego esto:

Código: Seleccionar todo

Dim Trojan() As String

Trojan() = Flesh.FileName

Mid(Trojan(), Breaker, Fan) = Mayhem

Me larga que no se puede asignar al array (Obvio, ya sé pero era para mostrar que pensé XD)

---------------------------------------------------------------

Otra pregunta... Como puedo asignar la propiedad Check de un Menú?

Probe:

Código: Seleccionar todo

mnuEnglish = Checked
mnuEnglish = Unchecked

mnuEnglish = Checked = True
mnuEnglish = Checked = False

mnuEnglish.Checked = True
mnuEnglish.Checked = False

También con Dim Checked As Boolean... Pero no puedo

Recién hace 2 meses empecé... Ayuda XD

Saludos!

Cuando vas a asignar valores a las variables tienes que poner la variable a la izquierda del "=" y la exprecion a la derecha. No es lo mismo "2 + 2 = Resultado" que "Resultado = 2 + 2", en este caso el operador "=" no significa igualdad de ecuaciones sino un operador de asignación.

Quedaría:

Código: Seleccionar todo

Dim Fan As String, Breaker As String, Mayhem As String

Open Flesh.FileName For Binary As #1
Fan = Text2.Text
Breaker = Text3.Text - Text2.Text
Mayhem = Mid(Flesh.FileName, Breaker, Fan)  
Close #1

Sobre los menús , para acceder a las propiedades de cualquier control , etc. se usa el punto (".").

Código: Seleccionar todo

mnu1.Checked = True

Saludos.

siempre cuando hasgas operaciones con objetos, como lo haces aca

Código: Seleccionar todo

Breaker = Text3.Text - Text2.Text

usa la propiedad val() para devolver el valor del objeto

quedaria asi:

Código: Seleccionar todo

Breaker = val(Text3.Text) - val(Text2.Text)

Otra cosa..

Dim Fan As String, Breaker As String, Mayhem As String

Open Flesh.FileName For Binary As #1
Fan = Text2.Text
Breaker = Text3.Text - Text2.Text
Mid(Flesh.FileName, Breaker, Fan) = Mayhem
Close #1

el mid solo lo puedes modificar cuando sea una variable no un objeto, quedaria asi

Código: Seleccionar todo

Mid(Variable, Breaker, Fan) = Mayhem

o si querias hacerlo invertido

Mayhem = Mid(Variable, Breaker, Fan)

salu2

Gracias por las respuestas al-hacker y Sanlegas! Pero ya lo había solucionado el problema del Mid.. eran exactamente esas dos razones que dijeron XD

Asi que el código marcha perfecto, pero el mnuCheck todavía no me funciona :(

al-hacker escribió:mnu1.Checked = True

El número que utilizaste es el número de Index o es directamente parte del nombre de la propiedad?

Saludos!

KainRazor escribió:Gracias por las respuestas al-hacker y Sanlegas! Pero ya lo había solucionado el problema del Mid.. eran exactamente esas dos razones que dijeron XD

Asi que el código marcha perfecto, pero el mnuCheck todavía no me funciona :(

al-hacker escribió:mnu1.Checked = True
El número que utilizaste es el número de Index o es directamente parte del nombre de la propiedad?

Saludos!

No, es el nombre del menú. Que raro que no te funcione por que ESA es la forma de como se hace. ¿No estarás confundiendo el Name con el Caption?, ¿te funciona si marcas el Checked en el editor de menús?.

Saludos.

al-hacker escribió: No, es el nombre del menú. Que raro que no te funcione por que ESA es la forma de como se hace. ¿No estarás confundiendo el Name con el Caption?, ¿te funciona si marcas el Checked en el editor de menús?.

Saludos.

Me funciona si lo hago por medio del Menu Editor, pero al intentarlo en el Código pongo el nombre del menú (mnuEnglish) + un punto y queda mnuEnglish. y aparecen los nombres de las propiedades que tengo disponibles:
>>Count
>>Item
>>LBound
>>UBound

Pero en ningún lado aparecen las propiedades Enabled o Checked :(

Gracias por responder una vez mas, al-hacker

Ami me salen las siguientes propiedades:

mnu.Caption
mnu.Checked
mnu.Enabled
mnu.HelpContextID
mnu.Index
mnu.Name
mnu.Parent
mnu.Tag
mnu.Visible
mnu.WindowList

Esas son las propiedades de un menú, las tullas parecen de algun array no se.
Lo unico que se me ocurre es que halla un conflicto de nombres, ¿Estas declarando variables con el mismo nombre que los menus? :S
No creo la verdad, la verdad que no tengo idea.
Esperemos a que una cabeza mas no ayude, Saludos.

Indetectables

Función Mid [VB] Y Menu Check

Función Mid [VB] Y Menu Check

Re: Función Mid [VB] Y Menu Check

Re: Función Mid [VB] Y Menu Check

Re: Función Mid [VB] Y Menu Check

Re: Función Mid [VB] Y Menu Check

Re: Función Mid [VB] Y Menu Check

Re: Función Mid [VB] Y Menu Check

Re: Función Mid [VB] Y Menu Check