Вопрос: В чём ошибка???

Добавлено: 21.06.09 13:18

Автор вопроса:  Злобный программер :-)

Public Sub SaveThemes(sFileName As String) CompileThemes FileNo = FreeFile Open sFileName For Append As FileNo   Print #FileNo, Icons   Print #FileNo, "[Control Panel\Colors]" & vbCrLf   Print #FileNo, "ActiveTitle=" & KonvertColor(frmMain.UserControl11(0).Color) & vbCrLf ' вот здесь ошибка. overflow видитиле   Print #FileNo, "Background=" & KonvertColor(frmMain.UserControl11(1).Color) & vbCrLf   Print #FileNo, "Hilight=" & KonvertColor(frmMain.UserControl11(2).Color) & vbCrLf   Print #FileNo, "HilightText=" & KonvertColor(frmMain.UserControl11(3).Color) & vbCrLf   Print #FileNo, "TitleText=" & KonvertColor(frmMain.UserControl11(4).Color) & vbCrLf   Print #FileNo, "Window=" & KonvertColor(frmMain.UserControl11(5).Color) & vbCrLf   Print #FileNo, "WindowText=" & KonvertColor(frmMain.UserControl11(6).Color) & vbCrLf   Print #FileNo, "Scrollbar=" & KonvertColor(frmMain.UserControl11(7).Color) & vbCrLf   Print #FileNo, "InactiveTitle=" & KonvertColor(frmMain.UserControl11(8).Color) & vbCrLf   Print #FileNo, "Menu=" & KonvertColor(frmMain.UserControl11(9).Color) & vbCrLf   Print #FileNo, "WindowFrame=" & KonvertColor(frmMain.UserControl11(10).Color) & vbCrLf   Print #FileNo, "MenuText=" & KonvertColor(frmMain.UserControl11(11).Color) & vbCrLf   Print #FileNo, "ActiveBorder=" & KonvertColor(frmMain.UserControl11(12).Color) & vbCrLf   Print #FileNo, "InactiveBorder=" & KonvertColor(frmMain.UserControl11(13).Color) & vbCrLf   Print #FileNo, "AppWorkspace=" & KonvertColor(frmMain.UserControl11(14).Color) & vbCrLf   Print #FileNo, "ButtonFace=" & KonvertColor(frmMain.UserControl11(15).Color) & vbCrLf   Print #FileNo, "ButtonShadow=" & KonvertColor(frmMain.UserControl11(16).Color) & vbCrLf   Print #FileNo, "GrayText=" & KonvertColor(frmMain.UserControl11(17).Color) & vbCrLf   Print #FileNo, "ButtonText=" & KonvertColor(frmMain.UserControl11(18).Color) & vbCrLf   Print #FileNo, "InactiveTitleText=" & KonvertColor(frmMain.UserControl11(19).Color) & vbCrLf   Print #FileNo, "ButtonHilight=" & KonvertColor(frmMain.UserControl11(20).Color) & vbCrLf   Print #FileNo, "ButtonDkShadow=" & KonvertColor(frmMain.UserControl11(21).Color) & vbCrLf   Print #FileNo, "ButtonLight=" & KonvertColor(frmMain.UserControl11(22).Color) & vbCrLf   Print #FileNo, "InfoText=" & KonvertColor(frmMain.UserControl11(23).Color) & vbCrLf   Print #FileNo, "InfoWindow=" & KonvertColor(frmMain.UserControl11(24).Color) & vbCrLf   Print #FileNo, "GradientActiveTitle=" & KonvertColor(frmMain.UserControl11(25).Color) & vbCrLf   Print #FileNo, "GradientInactiveTitle=" & KonvertColor(frmMain.UserControl11(26).Color) & vbCrLf   Print #FileNo, "ButtonAlternateFace=" & KonvertColor(frmMain.UserControl11(27).Color) & vbCrLf   Print #FileNo, "HotTrackingColor=" & KonvertColor(frmMain.UserControl11(28).Color) & vbCrLf   Print #FileNo, "MenuHilight=" & KonvertColor(frmMain.UserControl11(29).Color) & vbCrLf   Print #FileNo, "MenuBar=" & KonvertColor(frmMain.UserControl11(30).Color) & vbCrLf Close FileNo End Sub Private Function KonvertColor(Color As Integer) As String R = Color Mod 256 G = (Color \ 256) Mod 256 B = Color \ 65536 KonvertColor = R & " " & G & " " & B End Function Ответить

Ответы

Всего ответов: 2

Номер ответа: 1 Автор ответа:  VβÐUηìt Вопросов: 246 Ответов: 3333	Web-сайт: смекаешь.рф  Профиль | | #1	Добавлено: 21.06.09 13:27
	Private Function KonvertColor(Color As Integer) As String Цвет четырех байтный, тобишь Long, изменяется от 0 до 16,7 млн. А Integer - число от -32768 до 32768. Вот поэтому и переполнение. Делай так: Private Function KonvertColor(Color As Long) As String Ответить

Номер ответа: 2 Автор ответа:  Злобный программер :-) Вопросов: 14 Ответов: 24	Профиль | | #2	Добавлено: 21.06.09 14:53
	спасибо Ответить

Страница: 1 |