Skip to content

Instantly share code, notes, and snippets.

View Mahno74's full-sized avatar

Вячеслав Юрасов Mahno74

  • Челябинская городская Дума
  • Chelyabinsk
View GitHub Profile
@Mahno74
Mahno74 / SaveAs_merged_doc.vb
Last active September 11, 2024 08:49
WORD Макросы для сохранения слияния и рассылки в отдельные файлы формата DOC или PDF
Sub ToTranslitDoc()
Dim i As Long
Dim oMerge As MailMerge
Dim oData As MailMergeDataSource
Set oMerge = ActiveDocument.MailMerge
Set oData = oMerge.DataSource
Application.ScreenUpdating = False
For i = 1 To oData.RecordCount
@Mahno74
Mahno74 / firstLetterToUpperCase.cs
Last active July 6, 2021 10:38
Делаем первую букву строки заглавной
string newDeal = inputTextBox.Text;
newDeal = newDeal.Substring(0, 1).ToUpper() + (newDeal.Length > 1 ? newDeal.Substring(1) : ""); //делаем первую букву заглавной
@Mahno74
Mahno74 / TexBoxKeyPress.cs
Last active July 6, 2021 10:37
Контроль допустимых символов в текстовое поле
private void textBox1_KeyPress(object sender, KeyPressEventArgs e)
{
//if (e.KeyChar == (char)Keys.Enter) return; //Enter
//if (e.KeyChar == (char)Keys.Back) return; //Backspace
/* Правильными символами считаются только
* цифры, точка (не более одной а все запятые заменяем точками),
* <Enter>, <Backspace>*/
if (e.KeyChar >= '0' && e.KeyChar <= '9') return; //цифра
if (Char.IsControl(e.KeyChar)) return; //<Enter>, <Backspace>, <Esc>
if (e.KeyChar == ',') e.KeyChar = '.'; //заменяем запятую точкой
@Mahno74
Mahno74 / Working_with_CheckedListBox.cs
Last active July 6, 2021 10:38
Загрузка и выгрузка состояний блока чекбоксов
//Cheked items to string:
string result = CheckedItemsToString(checkedListBox1.CheckedItems)
public static string CheckedItemsToString(CheckedListBox.CheckedItemCollection input)
{
List<string> values = new List<string>();
foreach (object o in input)
values.Add(o.ToString());
return String.Join(",\n", values);
}
@Mahno74
Mahno74 / Set_first_day_of_year_in_dateTimePicker.cs
Last active July 6, 2021 10:38
Получаем первый день года
dateTimePicker1.Value = DateTime.Now.AddDays(-DateTime.Now.DayOfYear + 1);
@Mahno74
Mahno74 / Print_text.cs
Last active July 6, 2021 10:37
Печать текста
private void печатьToolStripMenuItem_Click(object sender, EventArgs e)
{
try
{
Reader = new System.IO.StreamReader(openFileDialog1.FileName, System.Text.Encoding.GetEncoding(1251));
try { printDocument1.Print(); }
finally { Reader.Close(); }
}
catch (Exception ex) { MessageBox.Show(ex.Message, "Ошибка", MessageBoxButtons.OK, MessageBoxIcon.Exclamation); }
}
@Mahno74
Mahno74 / Move_form_by_mouse.cs
Last active July 6, 2021 10:38
Премещение формы мышью
private void Form1_MouseDown(object sender, MouseEventArgs e)
{
// если нажата левая кнопка мыши
if (e.Button == MouseButtons.Left)
{
moveStart = new Point(e.X, e.Y);
}
}
private void Form1_MouseMove(object sender, MouseEventArgs e)
{
@Mahno74
Mahno74 / Read_TXT_File.cs
Last active July 6, 2021 10:37
Чтение файла TXT
System.IO.StreamReader Reader;
Создание потока среамреадер для чтения из файла
Reader = new System.IO.StreamReader(openFileDialog1.FileName, System.Text.Encoding.GetEncoding(1251));
textBox1.Text = Reader.ReadToEnd(); Reader.Close();
@Mahno74
Mahno74 / Restriction_On_Input_Text.cs
Last active July 6, 2021 10:39
Ограничение на вид ввода в TextBox
private void textBox1_KeyPress(object sender, KeyPressEventArgs e) // нажатие кнопки в поле редактирования
{
if ((e.KeyChar >= '0') && (e.KeyChar <= '9')) //разрешение цифр от 0 до 9
return;
// в поле редактирование не может быть больше одной точки если вводят запятую меняем ее на точку
if (e.KeyChar == ',') e.KeyChar = '.';
if (e.KeyChar == '.')
// точка не может быть первым символом
{ if((textBox1.Text.IndexOf('.') != -1) || (textBox1.TextLength == 0))
@Mahno74
Mahno74 / ForEachControl.cs
Last active May 14, 2021 04:26
WPF Обход однотипных "контролов"
//В WPF обход всех RadioButton в StackPanel radioStack
foreach (UIElement c in radioStack.Children) {
if (c is RadioButton)
((RadioButton)c).IsChecked = false;
}
//Пример обхода всех TextBox-ов
foreach (Control control in Controls)
{
TextBox tb = control as TextBox;