aftabeshargh
جمعه 19 اسفند 1390, 00:21 صبح
سلام
از دستورات زیر تو یه برنامه کوچیک استفاده کردم و الان کار میکنه " اما دقیقا همین دستورات رو در یه فرم پروژه جدید کپی کردم فقط قسمت فونت جواب میده و رنگ نه
یعنی بعد از انتخاب فونت و رنگ برای یک لیبل و بستن برنامه و اجرای مجدد برنامه فقط فونت رو برای لیبل فراخوانی میکنه نه رنگ رو
توی دکمه انتخاب فونت :
FontDialog1.ShowDialog()
lblmo.Font = FontDialog1.Font
SaveSetting("ghalammo", "Font", "Fontname", lblmo.Font.Name)
SaveSetting("ghalammo", "Font", "Fontsize", lblmo.Font.Size)
دکمه انتخاب رنگ :
ColorDialog1.ShowDialog()
lblmo.ForeColor = ColorDialog1.Color
SaveSetting(My.Application.Info.ProductName, "Colormo", "R", lblmo.ForeColor.R)
SaveSetting(My.Application.Info.ProductName, "Colormo", "G", lblmo.ForeColor.G)
SaveSetting(My.Application.Info.ProductName, "Colormo", "B", lblmo.ForeColor.B)
و لود فرم :
Try
Dim Fontname As String = GetSetting("ghalammo", "Font", "Fontname", "")
Dim Fontsize As Byte = GetSetting("ghalammo", "Font", "FontSize", "")
lblmo.Font = New System.Drawing.Font(Fontname, Fontsize)
Catch ex As Exception
End Try
Try
Dim Fontnamef As String = GetSetting("ghalamf", "Font", "Fontname", "")
Dim Fontsizef As Byte = GetSetting("ghalamf", "Font", "FontSize", "")
lblfilm.Font = New System.Drawing.Font(Fontnamef, Fontsizef)
Catch ex As Exception
End Try
Dim R, G, B As String
R = GetSetting(My.Application.Info.ProductName, "Colorj", "r", "")
G = GetSetting(My.Application.Info.ProductName, "Colorj", "g", "")
B = GetSetting(My.Application.Info.ProductName, "Colorj", "b", "")
'lblj.ForeColor = Color.FromArgb(R, G, B)
If GetSetting(My.Application.Info.ProductName, "Colormo", "r", "") = "" Then SaveSetting(My.Application.Info.ProductName, "Colormo", "r", lblmo.ForeColor.R)
If GetSetting(My.Application.Info.ProductName, "Colormo", "g", "") = "" Then SaveSetting(My.Application.Info.ProductName, "Colormo", "g", lblmo.ForeColor.G)
If GetSetting(My.Application.Info.ProductName, "Colormo", "b", "") = "" Then SaveSetting(My.Application.Info.ProductName, "Colormo", "b", lblmo.ForeColor.B)
' Dim rr, gg, bb As Integer
R = GetSetting(My.Application.Info.ProductName, "Colormo", "r", "")
G = GetSetting(My.Application.Info.ProductName, "Colormo", "g", "")
B = GetSetting(My.Application.Info.ProductName, "Colormo", "b", "")
lblmo.ForeColor = Color.FromArgb(R, G, B)
If GetSetting(My.Application.Info.ProductName, "Colorfi", "r", "") = "" Then SaveSetting(My.Application.Info.ProductName, "Colorfi", "r", lblfilm.ForeColor.R)
If GetSetting(My.Application.Info.ProductName, "Colorfi", "g", "") = "" Then SaveSetting(My.Application.Info.ProductName, "Colorfi", "g", lblfilm.ForeColor.G)
If GetSetting(My.Application.Info.ProductName, "Colorfi", "b", "") = "" Then SaveSetting(My.Application.Info.ProductName, "Colorfi", "b", lblfilm.ForeColor.B)
' Dim rr, gg, bb As Integer
R = GetSetting(My.Application.Info.ProductName, "Colorfi", "r", "")
G = GetSetting(My.Application.Info.ProductName, "Colorfi", "g", "")
B = GetSetting(My.Application.Info.ProductName, "Colorfi", "b", "")
lblfilm.ForeColor = Color.FromArgb(R, G, B)
از دستورات زیر تو یه برنامه کوچیک استفاده کردم و الان کار میکنه " اما دقیقا همین دستورات رو در یه فرم پروژه جدید کپی کردم فقط قسمت فونت جواب میده و رنگ نه
یعنی بعد از انتخاب فونت و رنگ برای یک لیبل و بستن برنامه و اجرای مجدد برنامه فقط فونت رو برای لیبل فراخوانی میکنه نه رنگ رو
توی دکمه انتخاب فونت :
FontDialog1.ShowDialog()
lblmo.Font = FontDialog1.Font
SaveSetting("ghalammo", "Font", "Fontname", lblmo.Font.Name)
SaveSetting("ghalammo", "Font", "Fontsize", lblmo.Font.Size)
دکمه انتخاب رنگ :
ColorDialog1.ShowDialog()
lblmo.ForeColor = ColorDialog1.Color
SaveSetting(My.Application.Info.ProductName, "Colormo", "R", lblmo.ForeColor.R)
SaveSetting(My.Application.Info.ProductName, "Colormo", "G", lblmo.ForeColor.G)
SaveSetting(My.Application.Info.ProductName, "Colormo", "B", lblmo.ForeColor.B)
و لود فرم :
Try
Dim Fontname As String = GetSetting("ghalammo", "Font", "Fontname", "")
Dim Fontsize As Byte = GetSetting("ghalammo", "Font", "FontSize", "")
lblmo.Font = New System.Drawing.Font(Fontname, Fontsize)
Catch ex As Exception
End Try
Try
Dim Fontnamef As String = GetSetting("ghalamf", "Font", "Fontname", "")
Dim Fontsizef As Byte = GetSetting("ghalamf", "Font", "FontSize", "")
lblfilm.Font = New System.Drawing.Font(Fontnamef, Fontsizef)
Catch ex As Exception
End Try
Dim R, G, B As String
R = GetSetting(My.Application.Info.ProductName, "Colorj", "r", "")
G = GetSetting(My.Application.Info.ProductName, "Colorj", "g", "")
B = GetSetting(My.Application.Info.ProductName, "Colorj", "b", "")
'lblj.ForeColor = Color.FromArgb(R, G, B)
If GetSetting(My.Application.Info.ProductName, "Colormo", "r", "") = "" Then SaveSetting(My.Application.Info.ProductName, "Colormo", "r", lblmo.ForeColor.R)
If GetSetting(My.Application.Info.ProductName, "Colormo", "g", "") = "" Then SaveSetting(My.Application.Info.ProductName, "Colormo", "g", lblmo.ForeColor.G)
If GetSetting(My.Application.Info.ProductName, "Colormo", "b", "") = "" Then SaveSetting(My.Application.Info.ProductName, "Colormo", "b", lblmo.ForeColor.B)
' Dim rr, gg, bb As Integer
R = GetSetting(My.Application.Info.ProductName, "Colormo", "r", "")
G = GetSetting(My.Application.Info.ProductName, "Colormo", "g", "")
B = GetSetting(My.Application.Info.ProductName, "Colormo", "b", "")
lblmo.ForeColor = Color.FromArgb(R, G, B)
If GetSetting(My.Application.Info.ProductName, "Colorfi", "r", "") = "" Then SaveSetting(My.Application.Info.ProductName, "Colorfi", "r", lblfilm.ForeColor.R)
If GetSetting(My.Application.Info.ProductName, "Colorfi", "g", "") = "" Then SaveSetting(My.Application.Info.ProductName, "Colorfi", "g", lblfilm.ForeColor.G)
If GetSetting(My.Application.Info.ProductName, "Colorfi", "b", "") = "" Then SaveSetting(My.Application.Info.ProductName, "Colorfi", "b", lblfilm.ForeColor.B)
' Dim rr, gg, bb As Integer
R = GetSetting(My.Application.Info.ProductName, "Colorfi", "r", "")
G = GetSetting(My.Application.Info.ProductName, "Colorfi", "g", "")
B = GetSetting(My.Application.Info.ProductName, "Colorfi", "b", "")
lblfilm.ForeColor = Color.FromArgb(R, G, B)