Mensajes

Asi podes verlo en windows10 solo lo he probado en la versión 1803

Código (csharp) [Seleccionar] Expandir

private void tema()
{
   var registro = My.Computer.Registry.GetValue(@"HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Themes\Personalize", "AppsUseLightTheme", null);
   if (registro == 1)
       Interaction.MsgBox("Tema claro");
   else
       Interaction.MsgBox("Tema oscuro");
   return null;
}


Yo si creo que te entendi   te hice una función espero aun te sirva.

Código (csharp) [Seleccionar] Expandir


public void Operar(string valores)
{
    string Operador = null;
    string tmp = null;
    double Valor_1 = default(Double);
    double Valor_2 = default(Double);
    string Resultado = null;
    bool porcentaje;

    for (var i = 0; i <= valores.Length - 1; i++)
    {
        tmp = tmp + valores.Chars[i];

        if (valores.Chars[i] == "+" | valores.Chars[i] == "-" | valores.Chars[i] == "/" | valores.Chars[i] == "*" | valores.Chars[i] == "%")
        {
            if (Operador == null)
                Operador = valores.Chars[i];
            else if (Operador != null & Operador != "%" & valores.Chars[i] == "%")
                porcentaje = true;
            else
            {
                Interaction.MsgBox("Solamente se puede hacer una operación a la vez", MsgBoxStyle.Critical, "Error");
                return null;
            }

            if (Valor_1 == default(Double))
            {
                Valor_1 = Conversion.Val(tmp);
                tmp = null;
            }
        }
    }

    if (Valor_1 != default(Double))
    {
        Valor_2 = Conversion.Val(tmp);
        tmp = null;
    }

    if (Valor_1 != default(Double) & Valor_2 != default(Double) & Operador != null)
    {
        if (porcentaje == true)
        {
            tmp = Conversion.Val(Valor_1) / 100 * Conversion.Val(Valor_2);
            Valor_2 = tmp;
        }

        switch (Operador)
        {
            case "+":
                {
                    Resultado = Conversion.Val(Valor_1) + Conversion.Val(Valor_2);
                    break;
                }

            case "-":
                {
                    Resultado = Conversion.Val(Valor_1) - Conversion.Val(Valor_2);
                    break;
                }

            case "/":
                {
                    Resultado = Conversion.Val(Valor_1) / Conversion.Val(Valor_2);
                    break;
                }

            case "*":
                {
                    Resultado = Conversion.Val(Valor_1) * Conversion.Val(Valor_2);
                    break;
                }

            case "%":
                {
                    Resultado = Conversion.Val(Valor_1) / 100 * Conversion.Val(Valor_2);
                    break;
                }
        }
        return Resultado;
    }
    else
    {
        Interaction.MsgBox("Algo está mal en la operación", MsgBoxStyle.Critical, "Error");
        return null;
    }
}


Solucionado:

Código (vbnet) [Seleccionar] Expandir

        If var2.Length < var1.Length Then
            For index = var2.Length To var1.Length
                ReDim Preserve var2(UBound(var2) + 1)
                var2(UBound(var2)) = 0
            Next
        End If
        If var3.Length < var1.Length Then
            For index = var3.Length To var1.Length
                ReDim Preserve var3(UBound(var3) + 1)
                var3(UBound(var3)) = 0
            Next
        End If
        If var4.Length < var1.Length Then
            For index = var4.Length To var1.Length
                ReDim Preserve var4(UBound(var4) + 1)
                var4(UBound(var4)) = 0
            Next
        End If
        If var5.Length < var1.Length Then
            For index = var5.Length To var1.Length
                ReDim Preserve var5(UBound(var5) + 1)
                var5(UBound(var5)) = 0
            Next
        End If
        If var6.Length < var1.Length Then
            For index = var6.Length To var1.Length
                ReDim Preserve var6(UBound(var6) + 1)
                var6(UBound(var6)) = 0
            Next
        End If
        If var7.Length < var1.Length Then
            For index = var7.Length To var1.Length
                ReDim Preserve var7(UBound(var7) + 1)
                var7(UBound(var7)) = 0
            Next
        End If
        If var8.Length < var1.Length Then
            For index = var8.Length To var1.Length
                ReDim Preserve var8(UBound(var8) + 1)
                var8(UBound(var8)) = 0
            Next
        End If
        If var9.Length < var1.Length Then
            For index = var9.Length To var1.Length
                ReDim Preserve var9(UBound(var9) + 1)
                var9(UBound(var9)) = 0
            Next
        End If
        If var10.Length < var1.Length Then
            For index = var10.Length To var1.Length
                ReDim Preserve var10(UBound(var10) + 1)
                var10(UBound(var10)) = 0
            Next
        End If
        If var11.Length < var1.Length Then
            For index = var11.Length To var1.Length
                ReDim Preserve var11(UBound(var11) + 1)
                var11(UBound(var11)) = 0
            Next
        End If
        If var12.Length < var1.Length Then
            For index = var12.Length To var1.Length
                ReDim Preserve var12(UBound(var12) + 1)
                var12(UBound(var12)) = 0
            Next
        End If

Este es el resultado:

Código (xml) [Seleccionar] Expandir

<?xml version="1.0" encoding="utf-8"?>
<!DOCTYPE svg PUBLIC "-//W3C//DTD SVG 20001102//EN"    "http://www.w3.org/TR/2000/CR-SVG-20001102/DTD/svg-20001102.dtd" [
 <!ENTITY ns_graphs "http://ns.adobe.com/Graphs/1.0/">
 <!ENTITY ns_vars "http://ns.adobe.com/Variables/1.0/">
 <!ENTITY ns_imrep "http://ns.adobe.com/ImageReplacement/1.0/">
 <!ENTITY ns_custom "http://ns.adobe.com/GenericCustomNamespace/1.0/">
 <!ENTITY ns_flows "http://ns.adobe.com/Flows/1.0/">
 <!ENTITY ns_extend "http://ns.adobe.com/Extensibility/1.0/">
]>
<svg>
<variableSets  xmlns="&ns_vars;">
 <variableSet  varSetName="binding1" locked="none">
   <variables><variable varName="num" trait="textcontent" category="&ns_flows;"></variable><variable varName="let" trait="textcontent" category="&ns_flows;"></variable><variable varName="" trait="textcontent" category="&ns_flows;"></variable><variable varName="" trait="textcontent" category="&ns_flows;"></variable><variable varName="" trait="textcontent" category="&ns_flows;"></variable><variable varName="" trait="textcontent" category="&ns_flows;"></variable><variable varName="" trait="textcontent" category="&ns_flows;"></variable><variable varName="" trait="textcontent" category="&ns_flows;"></variable><variable varName="" trait="textcontent" category="&ns_flows;"></variable><variable varName="" trait="textcontent" category="&ns_flows;"></variable><variable varName="" trait="textcontent" category="&ns_flows;"></variable><variable varName="" trait="textcontent" category="&ns_flows;"></variable></variables>
   <v:sampleDataSets  xmlns:v="http://ns.adobe.com/Variables/1.0/" xmlns="http://ns.adobe.com/GenericCustomNamespace/1.0/"><v:sampleDataSet dataSetName="datos 1">
<num>
<p>1</p>
</num>

<v:sampleDataSet dataSetName="datos 2">
<num>
<p>2</p>
</num>

<v:sampleDataSet dataSetName="datos 3">
<num>
<p>3</p>
</num>

<v:sampleDataSet dataSetName="datos 4">
<num>
<p>a</p>
</num>

<v:sampleDataSet dataSetName="datos 5">
<num>
<p>b</p>
</num>

<v:sampleDataSet dataSetName="datos 6">
<num>
<p>c</p>
</num>

   </v:sampleDataSets>
 </variableSet>
</variableSets>
</svg>

Esto es lo que yo necesito:

Código (xml) [Seleccionar] Expandir

<?xml version="1.0" encoding="utf-8"?>
<!DOCTYPE svg PUBLIC "-//W3C//DTD SVG 20001102//EN"    "http://www.w3.org/TR/2000/CR-SVG-20001102/DTD/svg-20001102.dtd" [
<!ENTITY ns_graphs "http://ns.adobe.com/Graphs/1.0/">
<!ENTITY ns_vars "http://ns.adobe.com/Variables/1.0/">
<!ENTITY ns_imrep "http://ns.adobe.com/ImageReplacement/1.0/">
<!ENTITY ns_custom "http://ns.adobe.com/GenericCustomNamespace/1.0/">
<!ENTITY ns_flows "http://ns.adobe.com/Flows/1.0/">
<!ENTITY ns_extend "http://ns.adobe.com/Extensibility/1.0/">
]>
<svg>
<variableSets  xmlns="&ns_vars;">
<variableSet  locked="none" varSetName="binding1">
<variables>
<variable  category="&ns_flows;" varName="Variable1" trait="textcontent"></variable>
<variable  category="&ns_flows;" varName="Variable2" trait="textcontent"></variable>
</variables>
<v:sampleDataSets  xmlns:v="&ns_vars;" xmlns="&ns_custom;">
<v:sampleDataSet  dataSetName="Conj. de datos 1">
<Variable1>
<p>1</p>
</Variable1>
<Variable2>
<p>a</p>
</Variable2>
</v:sampleDataSet>
<v:sampleDataSet  dataSetName="Conj. de datos 2">
<Variable1>
<p>2</p>
</Variable1>
<Variable2>
<p>b</p>
</Variable2>
</v:sampleDataSet>
<v:sampleDataSet  dataSetName="Conj. de datos 3">
<Variable1>
<p>3</p>
</Variable1>
<Variable2>
<p>c</p>
</Variable2>
</v:sampleDataSet>
</v:sampleDataSets>
</variableSet>
</variableSets>
</svg>

El código ya no da problemas con los array, con respecto a los textbox no importa que fueran 20 o 50 entre más mejor. Y te reitero que no soy programador del código que pusiste que resuelve el problema de los array pero que no es valido en Adobe Illustrator no entiendo nada por eso no puedo arreglarlo.

Mi único problema son los array porque el xml que genero con mis 49 variables es valido.

Yo entiendo y se que mi código es pésimo, pero es lo que entiendo.

Muchas gracias por tu ayuda.

Dejo el link del proyecto el que dice "copia" es la versión que funcionaba pero solo con una variable.

El proyecto genera la base de datos, para datos variables de Illustrator CC.

Código [Seleccionar] Expandir

Dim var1 As Array = Form1.TextBox1.Lines
       Dim var2 As Array = Form1.TextBox4.Lines
       Dim var3 As Array = Form1.TextBox6.Lines
       Dim var4 As Array = Form1.TextBox8.Lines
       Dim var5 As Array = Form1.TextBox16.Lines
       Dim var6 As Array = Form1.TextBox14.Lines
       Dim var7 As Array = Form1.TextBox12.Lines
       Dim var8 As Array = Form1.TextBox10.Lines
       Dim var9 As Array = Form1.TextBox24.Lines
       Dim var10 As Array = Form1.TextBox22.Lines
       Dim var11 As Array = Form1.TextBox20.Lines
       Dim var12 As Array = Form1.TextBox18.Lines

No puedo inicializar el array porque no se cuantos datos va a contener y necesito que todos lleven la misma cantidad de datos respetando lo que ya se ha puesto en los cajones de texto.

mas adelante hago lo siguiente:

Código [Seleccionar] Expandir

       Do While i <= var1.Length

           c1 = <a><![CDATA[<v:sampleDataSet dataSetName="]]></a>.Value & "datos" & i & <a><![CDATA[">]]></a>.Value
           c2 = <a><![CDATA[<]]></a>.Value & nombre1 & <a><![CDATA[>]]></a>.Value
           c3 = <a><![CDATA[<p>]]></a>.Value & var1(i) & <a><![CDATA[</p>]]></a>.Value
           c4 = <a><![CDATA[</]]></a>.Value & nombre1 & <a><![CDATA[>]]></a>.Value

           c5 = <a><![CDATA[<v:sampleDataSet dataSetName="]]></a>.Value & "datos" & i & <a><![CDATA[">]]></a>.Value
           c6 = <a><![CDATA[<]]></a>.Value & nombre2 & <a><![CDATA[>]]></a>.Value
           c7 = <a><![CDATA[<p>]]></a>.Value & var2(i) & <a><![CDATA[</p>]]></a>.Value
           c8 = <a><![CDATA[</]]></a>.Value & nombre2 & <a><![CDATA[>]]></a>.Value

           i += 1

       Loop

no soy programador así que lo que hago es bastante tosco.

Hola.
tengo un problema con arrays en vb.net, tengo 12 array que contendrán distintos datos que luego escribo en un archivo xml, el problema es que no todos los arrays contendrán datos o no todos tendrán el mismo número de datos y eso me genera problemas.

lo que necesito o quisiera hacer es llenar de ceros los que tengan menos datos e igual con los que no tengan ningún dato.

lo que tengo hasta el memento es lo siguiente:

Código (vbnet) [Seleccionar] Expandir

Do While tmp1 <= var1.Length
           If var2(tmp1) = Nothing Then
               var2(tmp1) = 0
           End If
           If var3(tmp1) = Nothing Then
               var3(tmp1) = 0
           End If
           If var4(tmp1) = Nothing Then
               var4(tmp1) = 0
           End If
           If var5(tmp1) = Nothing Then
               var5(tmp1) = 0
           End If
           If var6(tmp1) = Nothing Then
               var6(tmp1) = 0
           End If
           If var7(tmp1) = Nothing Then
               var7(tmp1) = 0
           End If
           If var8(tmp1) = Nothing Then
               var8(tmp1) = 0
           End If
           If var9(tmp1) = Nothing Then
               var9(tmp1) = 0
           End If
           If var10(tmp1) = Nothing Then
               var10(tmp1) = 0
           End If
           If var11(tmp1) = Nothing Then
               var11(tmp1) = 0
           End If
           If var12(tmp1) = Nothing Then
               var12(tmp1) = 0
           End If
           tmp1 += 1
       Loop