Skip to content

Instantly share code, notes, and snippets.

View Mahno74's full-sized avatar

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

  • Челябинская городская Дума
  • Chelyabinsk
View GitHub Profile
@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 / 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 / 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 / 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 / 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 / filecheck.cs
Last active July 6, 2021 10:38
Проверка наличия файла
using System.IO;
public static bool CheckBd() {
string curDir = Directory.GetCurrentDirectory();
FileInfo fileInf = new FileInfo(curDir + "/store.mdb");
if (fileInf.Exists) return true;
return false;
}
@Mahno74
Mahno74 / WPF_binding_command.cs
Last active November 13, 2020 05:07
WPF Привязка команд к блокам
DockPanel>
<Menu DockPanel.Dock="Top" MinHeight="25">
<MenuItem Header="File" />
<MenuItem Header="Edit">
<MenuItem Header="Copy" Command="Copy" CommandTarget="{Binding ElementName=tb1}" />
<MenuItem Header="Paste" Command="Paste" CommandTarget="{Binding ElementName=tb1}" />
</MenuItem>
</Menu>
<TextBox x:Name="tb1" DockPanel.Dock="Bottom" />
</DockPanel>
@Mahno74
Mahno74 / commands.cs
Last active September 17, 2021 15:08
WPF Создание команд горячих клавишь
//Создаем класс
using System.Windows.Input;
namespace WPFWeekReport {
public class Commands {
static Commands() {
Save = new RoutedCommand("Save", typeof(MainWindow));
}
public static RoutedCommand Save { get; set; }
}
@Mahno74
Mahno74 / wpf_styles.cs
Last active May 14, 2021 04:24
WPF Добавление ресурсов и стилей в проект
//Содежимое App.xaml
<Application.Resources>
<ResourceDictionary>
<ResourceDictionary.MergedDictionaries>
<ResourceDictionary Source="/WpfApp;component/styles/myButton.xaml"/>
</ResourceDictionary.MergedDictionaries>
</ResourceDictionary>
</Application.Resources>
//Навание сборки WpfApp, файл со стилем кнопки лежит в папке styles и называетмя myButton.xaml
@Mahno74
Mahno74 / toExelExport.cs
Last active July 6, 2021 10:37
Export to Exel
//Сначала добавляем сылку на Microsoft.Office.Interop.Excel;
using System;
using System.Collections.Generic;
using System.Windows;
using Excel = Microsoft.Office.Interop.Excel;