Полосы прокрутки
ПРОЦЕДУРЫ И ФУНКЦИИ
Процедуры бывают событийными и общими. Общие процедуры бывают общедоступными (глобальными - Public) и местными (локальными - Private)
| void Name (Arguments) { процедура; } | tip NameFunction (Arguments) { return функция; } |
| Вызов процедуры Name (Arguments) | Вызов функции X=NameFunction (Arguments) |
HScrollBar горизонтальная полоса прокрутки
VScrollBar вертикальная полоса прокрутки
Свойства Min и Max – диапазон значений (целые числа Integer).
Проект «Смешивание цветов»
Составить программу, в ходе выполнения которой цвет фона текстового окна будет изменяться на один из 24-битового цвета
namespace PrRGB
{
public partial class frmRGB : Form
{
void DoColor()
{
txtColor.BackColor = Color.FromArgb(hsbRed.Value, hsbGreen.Value, hsbBlue.Value);
}
public frmRGB()
{
InitializeComponent();
}
private void btnExit_Click(object sender, EventArgs e)
{
Close();
}
private void hsbRed_Scroll(object sender, ScrollEventArgs e)
{
DoColor();
}
private void frmRGB_Load(object sender, EventArgs e)
{
DoColor();
}
private void hsbGreen_Scroll(object sender, ScrollEventArgs e)
{
DoColor();
}
private void hsbBlue_Scroll(object sender, ScrollEventArgs e)
{
DoColor();
}
}
}
Проект «Объем конуса»
namespace PrKonus
{
public partial class frmKonus : Form
{
public frmKonus()
{
InitializeComponent();
}
private void btnExit_Click(object sender, EventArgs e)
{
Close();
}
double SKruga(double R)
{
return R * R * Math.PI;
}
private void btnRun_Click(object sender, EventArgs e)
{
double Radius = Convert.ToDouble(txtR.Text),
Visota=Convert.ToDouble(txtH.Text),
V=Visota*SKruga(Radius)/3;
lblV.Text = "V=" + Convert.ToString(V);
}
}
}