blocks|key|2886525|text|如果你在setting.txt中只写了一种颜色，那么你就错了|type|unstyled|depth|inlineStyleRanges|entityRanges|data|2886526|+Dim+fileReader+As+String
++++fileReader+=+My.Computer.FileSystem.ReadAllText(TempDirectory+%2B++"/Settings.txt")
++++System.Drawing.Color.FromName(fileReader)|code-block|syntax|javascript|2886527|在settings.txt中应该只写"Lime“而不是"ColorLime”(不带引号)|2886528|entityMap^0|0|0|0^^$0|@$1|2|3|4|5|6|7|K|8|@]|9|@]|A|$]]|$1|B|3|C|5|D|7|L|8|@]|9|@]|A|$E|F]]|$1|G|3|H|5|6|7|M|8|@]|9|@]|A|$]]|$1|I|3|-4|5|6|7|N|8|@]|9|@]|A|$]]]|J|$]]

If you write only one color in setting.txt than you have only one mistake 

<pre><code> Dim fileReader As String
 fileReader = My.Computer.FileSystem.ReadAllText(TempDirectory + "/Settings.txt")
 System.Drawing.Color.FromName(fileReader)
</code></pre>

And in settings.txt should be written only "Lime" not "Color[Lime]" (without quotes)

blocks|key|119884|text|System.Drawing.Color不是那种可以赋值的东西。无论你想要设置什么颜色，我想你都想要更像这样的颜色|type|unstyled|depth|inlineStyleRanges|entityRanges|data|119885|SomeObject.Color+=+System.Drawing.Color.FromName("Lime")|code-block|syntax|javascript|119886|因此，要从该变量中读取它，您可能需要如下内容：|119887|SomeObject.color+=+System.Drawing.Color.FromName(fileReader.Replace("Color[").Replace("]"))|119888|这些.Replace函数是为了去掉文件中的无关字符。|offset|length|style|CODE|119889|entityMap^0|0|0|0|0|2|8|0^^$0|@$1|2|3|4|5|6|7|S|8|@]|9|@]|A|$]]|$1|B|3|C|5|D|7|T|8|@]|9|@]|A|$E|F]]|$1|G|3|H|5|6|7|U|8|@]|9|@]|A|$]]|$1|I|3|J|5|D|7|V|8|@]|9|@]|A|$E|F]]|$1|K|3|L|5|6|7|W|8|@$M|X|N|Y|O|P]]|9|@]|A|$]]|$1|Q|3|-4|5|6|7|Z|8|@]|9|@]|A|$]]]|R|$]]

System.Drawing.Color is not the sort of thing to which you would assign a value. Wherever you're looking to set the color, I think you want something more like

<pre><code>SomeObject.Color = System.Drawing.Color.FromName("Lime")
</code></pre>

So, to read it from that variable, you might need something like:

<pre><code>SomeObject.color = System.Drawing.Color.FromName(fileReader.Replace("Color[").Replace("]"))
</code></pre>

Those <code>.Replace</code> functions are to get rid of the extraneous characters in the file.

blocks|key|119896|text|将字符串转换为颜色|type|unstyled|depth|inlineStyleRanges|offset|length|style|BOLD|entityRanges|data|119897|要将字符串转换为Color，可以使用以下任一选项：|CODE|119898|119899|Color.FromName|unordered-list-item|119900|ColorConverter.ConvertFromString|119901|119902|它们都在System.Drawing.dll中。确保您有对System.Drawing+dll的引用。|119903|它们都在System.Drawing命名空间中。别忘了Imports+System.Drawing。|119904|ColorConverter解析名称和RGB表示：|119905|Dim+color1+=+color.FromName("Red")
Dim+color2+=+DirectCast(New+ColorConverter().ConvertFromString("Red"),+Color)
Dim+color3+=+DirectCast(New+ColorConverter().ConvertFromString("255,0,0"),+Color)|code-block|syntax|javascript|119906|代码中的问题|119907|代码中的问题是没有将名称传递给FromName方法。如果你想修复你的代码，你会发现Steve+Barron的答案很有用。|119908|其他可能对有帮助的选项|119909|如果你想存储一些颜色作为设置，最好使用My+Project下的Settings.settings文件，并添加一些设置，通过指定Name和System.Drawing.Color为Type，User为Scope，并为Value选择颜色。然后，您可以使用My.Settings简单地使用(读取、分配、保存、重置)这些设置。|119910|它还支持Andrew+Morton提到的property+binding，你会发现他的回答很有用。这样，您就可以在设计时选择您的控件，然后在属性网格中，单击...+(ApplicationSettings)+(PropertyBinding)下的，并从对话框中将所需的属性绑定到设置。|119911|entityMap|0|LINK|mutability|MUTABLE|url|https://msdn.microsoft.com/en-us/library/system.drawing.color.fromname(v=vs.110).aspx|1|https://msdn.microsoft.com/en-us/library/ms606533(v=vs.110).aspx|2|https://stackoverflow.com/a/34683880/3110834|3|https://stackoverflow.com/a/34684220/3110834|4|https://msdn.microsoft.com/en-us/library/wabtadw6(v=vs.100).aspx^0|0|9|0|8|5|0|0|0|E|0|E|0|0|0|W|0|W|1|0|0|4|I|T|E|0|4|E|R|M|0|0|E|0|0|4|2|0|0|1O|F|8|15|C|2|0|0|B|0|0|4F|J|A|V|H|1R|4|1W|K|2H|4|2M|4|2R|5|2Z|5|3H|B|0|0|29|2A|L|2W|12|26|3|2A|L|2W|H|4|D|3|K|G|4|0^^$0|@$1|2|3|4|5|6|7|1Q|8|@$9|1R|A|1S|B|C]]|D|@]|E|$]]|$1|F|3|G|5|6|7|1T|8|@$9|1U|A|1V|B|H]]|D|@]|E|$]]|$1|I|3|-4|5|6|7|1W|8|@]|D|@]|E|$]]|$1|J|3|K|5|L|7|1X|8|@$9|1Y|A|1Z|B|H]]|D|@$9|20|A|21|1|22]]|E|$]]|$1|M|3|N|5|L|7|23|8|@$9|24|A|25|B|H]]|D|@$9|26|A|27|1|28]]|E|$]]|$1|O|3|-4|5|6|7|29|8|@]|D|@]|E|$]]|$1|P|3|Q|5|6|7|2A|8|@$9|2B|A|2C|B|H]|$9|2D|A|2E|B|H]]|D|@]|E|$]]|$1|R|3|S|5|6|7|2F|8|@$9|2G|A|2H|B|H]|$9|2I|A|2J|B|H]]|D|@]|E|$]]|$1|T|3|U|5|6|7|2K|8|@$9|2L|A|2M|B|H]]|D|@]|E|$]]|$1|V|3|W|5|X|7|2N|8|@]|D|@]|E|$Y|Z]]|$1|10|3|11|5|6|7|2O|8|@$9|2P|A|2Q|B|C]]|D|@]|E|$]]|$1|12|3|13|5|6|7|2R|8|@$9|2S|A|2T|B|C]|$9|2U|A|2V|B|H]]|D|@$9|2W|A|2X|1|2Y]]|E|$]]|$1|14|3|15|5|6|7|2Z|8|@$9|30|A|31|B|C]]|D|@]|E|$]]|$1|16|3|17|5|6|7|32|8|@$9|33|A|34|B|C]|$9|35|A|36|B|H]|$9|37|A|38|B|H]|$9|39|A|3A|B|H]|$9|3B|A|3C|B|H]|$9|3D|A|3E|B|H]|$9|3F|A|3G|B|H]|$9|3H|A|3I|B|H]|$9|3J|A|3K|B|H]|$9|3L|A|3M|B|H]]|D|@]|E|$]]|$1|18|3|19|5|6|7|3N|8|@$9|3O|A|3P|B|C]|$9|3Q|A|3R|B|C]|$9|3S|A|3T|B|C]|$9|3U|A|3V|B|H]|$9|3W|A|3X|B|H]|$9|3Y|A|3Z|B|H]]|D|@$9|40|A|41|1|42]|$9|43|A|44|1|45]]|E|$]]|$1|1A|3|-4|5|6|7|46|8|@]|D|@]|E|$]]]|1B|$1C|$5|1D|1E|1F|E|$1G|1H]]|1I|$5|1D|1E|1F|E|$1G|1J]]|1K|$5|1D|1E|1F|E|$1G|1L]]|1M|$5|1D|1E|1F|E|$1G|1N]]|1O|$5|1D|1E|1F|E|$1G|1P]]]]

Convert String to Color

To convert a string to a <code>Color</code>, you can use either of these options:

<ul>
<li><a href="https://msdn.microsoft.com/en-us/library/system.drawing.color.fromname(v=vs.110).aspx" rel="nofollow noreferrer"><code>Color.FromName</code></a></li>
<li><a href="https://msdn.microsoft.com/en-us/library/ms606533(v=vs.110).aspx" rel="nofollow noreferrer"><code>ColorConverter.ConvertFromString</code></a></li>
</ul>

Both of them are in <code>System.Drawing.dll</code>. Make sure you have a reference to <code>System.Drawing</code> dll.

Both of them are in <code>System.Drawing</code> namespace. Don't forget to <code>Imports System.Drawing</code>.

<code>ColorConverter</code> parse both name and RGB representation:

<pre><code>Dim color1 = color.FromName("Red")
Dim color2 = DirectCast(New ColorConverter().ConvertFromString("Red"), Color)
Dim color3 = DirectCast(New ColorConverter().ConvertFromString("255,0,0"), Color)
</code></pre>

Problem In Your Code

The problem in your code is you didn't pass the name to <code>FromName</code> method. If you want to fix your code you will find answer of <a href="https://stackoverflow.com/a/34683880/3110834">Steve Barron</a> useful.

Other option that may help you

If you want to store some colors as setting, it's better to use <code>Settings.settings</code> file under <code>My Project</code> and add some settings, by specifing a <code>Name</code> and <code>System.Drawing.Color</code> as <code>Type</code> and <code>User</code> as <code>Scope</code> and select a color for <code>Value</code>. Then you can simply use (read, assign, save, reset) those settings using <code>My.Settings</code>. 

It also supports <a href="https://msdn.microsoft.com/en-us/library/wabtadw6(v=vs.100).aspx" rel="nofollow noreferrer">property binding</a> as mentioned by <a href="https://stackoverflow.com/a/34684220/3110834">Andrew Morton</a> and you will find his answer useful. This way you can select your control at design time, then in property grid, under <code>(ApplicationSettings)</code> click <code>...</code> for <code>(PropertyBinding)</code> and from the dialog, bind the properties you need to the settings.

blocks|key|2675251|text|好了，现在它可以工作了，这就是我所做的：|type|unstyled|depth|inlineStyleRanges|entityRanges|data|2675252|在开始时：|2675253|Dim+TempDirectory+As+String+=+My.Computer.FileSystem.SpecialDirectories.Temp|code-block|syntax|javascript|2675254|关闭时：|2675255|++++++++If+My.Computer.FileSystem.FileExists(TempDirectory+%2B+"/Settings.txt")+Then
++++++++My.Computer.FileSystem.DeleteFile(TempDirectory+%2B+"/Settings.txt")

++++End+If

++++Dim+colorConv+As+New+ColorConverter
++++Dim+BackColorString+As+String
++++BackColorString+=+colorConv.ConvertToString(BackColor)
++++Dim+file+As+System.IO.StreamWriter
++++file+=+My.Computer.FileSystem.OpenTextFileWriter(TempDirectory+%2B+"/Settings.txt",+True)
++++file.WriteLine(BackColorString)
++++file.Close()|2675256|打开时：|2675257|++++++++If+My.Computer.FileSystem.FileExists(TempDirectory+%2B+"/Settings.txt")+Then
++++++++Dim+fileReader+As+String
++++++++fileReader+=+My.Computer.FileSystem.ReadAllText(TempDirectory+%2B+"/Settings.txt")
++++++++Dim+colorConv+As+New+ColorConverter
++++++++BackColor+=+colorConv.ConvertFromString(fileReader)
++++End+If|2675258|entityMap^0|0|0|0|0|0|0|0^^$0|@$1|2|3|4|5|6|7|S|8|@]|9|@]|A|$]]|$1|B|3|C|5|6|7|T|8|@]|9|@]|A|$]]|$1|D|3|E|5|F|7|U|8|@]|9|@]|A|$G|H]]|$1|I|3|J|5|6|7|V|8|@]|9|@]|A|$]]|$1|K|3|L|5|F|7|W|8|@]|9|@]|A|$G|H]]|$1|M|3|N|5|6|7|X|8|@]|9|@]|A|$]]|$1|O|3|P|5|F|7|Y|8|@]|9|@]|A|$G|H]]|$1|Q|3|-4|5|6|7|Z|8|@]|9|@]|A|$]]]|R|$]]

Alright now its working and this is what i did:

At the start:

<pre><code>Dim TempDirectory As String = My.Computer.FileSystem.SpecialDirectories.Temp
</code></pre>

when closing:

<pre><code> If My.Computer.FileSystem.FileExists(TempDirectory + "/Settings.txt") Then
 My.Computer.FileSystem.DeleteFile(TempDirectory + "/Settings.txt")

 End If

 Dim colorConv As New ColorConverter
 Dim BackColorString As String
 BackColorString = colorConv.ConvertToString(BackColor)
 Dim file As System.IO.StreamWriter
 file = My.Computer.FileSystem.OpenTextFileWriter(TempDirectory + "/Settings.txt", True)
 file.WriteLine(BackColorString)
 file.Close()
</code></pre>

When Openning:

<pre><code> If My.Computer.FileSystem.FileExists(TempDirectory + "/Settings.txt") Then
 Dim fileReader As String
 fileReader = My.Computer.FileSystem.ReadAllText(TempDirectory + "/Settings.txt")
 Dim colorConv As New ColorConverter
 BackColor = colorConv.ConvertFromString(fileReader)
 End If
</code></pre>

blocks|key|122758|text|Color+myColor+=+new+Color();

myColor+=+Color.AliceBlue;

string+myColorSerialized+=+System.Drawing.ColorTranslator.ToHtml(myColor);

MessageBox.Show("Color+serialized+is:+"+%2B+myColorSerialized);

Color+deserializedColor+=+System.Drawing.ColorTranslator.FromHtml(myColorSerialized);

MessageBox.Show("Deserialized+color+is"+%2B+deserializedColor.ToString());|type|code-block|depth|inlineStyleRanges|entityRanges|data|syntax|javascript|122759|在vb.net中，使用以下两种方法转换和保存颜色名称没有任何问题|unstyled|122760|System.Drawing.ColorTranslator.ToHtml

System.Drawing.ColorTranslator.FromHtml|122761|entityMap^0|0|0|0^^$0|@$1|2|3|4|5|6|7|K|8|@]|9|@]|A|$B|C]]|$1|D|3|E|5|F|7|L|8|@]|9|@]|A|$]]|$1|G|3|H|5|6|7|M|8|@]|9|@]|A|$B|C]]|$1|I|3|-4|5|F|7|N|8|@]|9|@]|A|$]]]|J|$]]

<pre><code>Color myColor = new Color();

myColor = Color.AliceBlue;

string myColorSerialized = System.Drawing.ColorTranslator.ToHtml(myColor);

MessageBox.Show("Color serialized is: " + myColorSerialized);

Color deserializedColor = System.Drawing.ColorTranslator.FromHtml(myColorSerialized);

MessageBox.Show("Deserialized color is" + deserializedColor.ToString());
</code></pre>

Use the following two methods for convert and save the color names without any problem in vb.net

<pre><code>System.Drawing.ColorTranslator.ToHtml

System.Drawing.ColorTranslator.FromHtml
</code></pre>

this is my idea:
while exiting the form it saves the backcolor to a file that is located in the temp that is called settings.txt.
next time you open the form it will check if the file exists and if it is it will take what is written in there (the backcolor) and will change it to the current form backcolor.
i'm having a problem while importing the text that written in the settings.txt to the backcolor. 

<pre><code> Dim fileReader As String
 fileReader = My.Computer.FileSystem.ReadAllText(TempDirectory + "/Settings.txt")
 System.Drawing.Color.FromName = fileReader.ToString
</code></pre>

I'm having a blue line under:

<pre><code>System.Drawing.Color.FromName
</code></pre>

When i move my mouse to it, it shows

<blockquote>
 Argument not specified for parameter 'name' of 'Public Shared Function FromName(name As String) As System.Drawing.Color.'
</blockquote>

By the way in the settings.txt written

<blockquote>
 Color [Lime]
</blockquote>

Any suggestions anyone?

Visual Basic 2008 Express Edition

Convert String to Color in Visual Basic

这是我的想法:当退出表单时，它将背景色保存到一个名为settings.txt的临时文件中。下次打开表单时，它将检查该文件是否存在，如果存在，它将获取其中写入的内容(背景色)，并将其更改为当前表单的背景色。在将settings.txt中的文本导入到背景色时，我遇到了问题。    Dim fileReader As Str...

问在Visual Basic中将字符串转换为颜色
EN

社区

活动

资源

关于

腾讯云开发者

热门产品

热门推荐

更多推荐

问在Visual Basic中将字符串转换为颜色EN

社区

活动

资源

关于

腾讯云开发者

热门产品

热门推荐

更多推荐

问在Visual Basic中将字符串转换为颜色
EN