Отправляет email-рассылки с помощью сервиса Sendsay

Программирование (VB,C#,ASP,.NET): новости, советы, примеры

Рассылка закрыта

Вы можете найти рассылки сходной тематики в Каталоге рассылок.

← Август 2007 →
	1	2	3	4	5
6	7	8	9	10	11	12
13	14	15	16	17	18	19
20	21	22	23	24	25	26
27	28	29	30	31

Автор

Алексей Немиро

Статистика

1.234 подписчиков
-1 за неделю

← Все выпуски →

Программирование (VB,C#,ASP,.NET): новости, советы, примеры

Выпуск # 168

http://www.kbyte.ru/

Новый выпуск!

Здравствуйте дамы и господа!
Представляю очередной выпуск рассылки научно-информационного портала Kbyte.Ru. Надеюсь он Вам понравится. Если у Вас есть какие либо вопросы или предложения по рассылке, пишите нам – admin@kbyte.ru!

Содержание выпуска

Система ЭКСПЕРТ

Вопрос #000389: Программный перевод компьютера в спящий режим

Вопрос #000383: Локализация приложения

Вопрос #000380: Visible and FOR

Вопрос #000379: Ссылка в ВБ 6.0

Вопрос #000376: Открыть окно браузера с результатами поиска

Последнее на форумах

Ошибка при обновлении в Гриде

Нужна видюха, порекомендуйте

Будни программиста (!всем смотреть!)

Visual Studio 2008 Beta 2 & Framework 3.5 Beta 2

Создание файла с именем из буфера обмена

Последние статьи

Взаимодействие с другими сайтами через HTTP (HttpWebRequest и HttpWebResponse)

Работа с SQL – Запросы

Использование XML.Serialization

Выбор языка программирования для научных работ (2-я редакция)

Работаем с MIME

Интересные коды и решения

Юмор на Kbyte.Ru

Система ЭКСПЕРТ

Система «Эксперт» - уникальная система, которая поможет решить, если не все, то многие Ваши проблемы с программированием и разработкой! Если у Вас есть какой-либо вопрос по программированию или разработке, то Вы всегда можете задать его нашим Экспертам! При этом каких-либо особых действий от Вас не потребуется! Просто отправьте Ваш вопрос на адрес mailto:expert@kbyte.ru, в теме письма укажите тему вопроса, в тексте – сам вопрос, и все! Эксперты дадут Вам ответ в течение 12-24 часов, на тот адрес, с которого Вы отправите вопрос. Все проще простого! Никакой регистрации и заполнение бесконечных форм, никаких наездов, оскорблений и насмешек со стороны гуру, просто спросите и получите ответ ;-)

Вопрос #000389: Программный перевод компьютера в спящий режим

Автор вопроса: Игорь Голов // 23.07.2007 / 02:15

Доброго времени суток!
 Возникла проблема - необходимо переводить компьютер в спящий режим из разрабатываемой программы.
 
 Как это сделать?
 
 Платформа: Microsoft Visual Basic 2005.
 
 Спасибо!
 
 --------------------------------------
 Категория: --- Visual
Basic .NET

Отвечает: EROS // 23.07.2007 / 09:38

Application.SetSuspendState Method
 Suspends or hibernates the system, or requests that the system be 
 suspended or hibernated.
  
 Подробности тут
  
 С Уважением, EROS 

Вопрос #000383: Локализация приложения

Автор вопроса: weltkind // 21.07.2007 / 06:23

День добрый! В очередной раз обращаюсь к вам за помощью!!
 Решил я перевести свою программку на другой язык (немецкий) решил 
 реаализовать это таким образом
 в свойствах формы пункт Localizable выставить значение True
 и всем обектам в пункте Text ввести соответствующие надписи на др языке 
 задать предварительно в свойствах формы в пункте Language выствить 
 необходимый мне язык но тут возникла проблема
как реализовать 
 переключение языка непосредственно при выполнении так как в среде 
 разработке при изменении пункта Language с default на Dutch все надписи на 
 форме меняються а вот при выполненни незнаю как сделать
 добавил сл код непомог:
 System.Threading.Thread.CurrentThread.CurrentUICulture = New 
 System.Globalization.CultureInfo(тут вписывал код языка (1049)(1033) и 
 т.д.)
 Помогите Плиз !!
 Если вы знаете как можно по другому реализовать многоязычность
сообщите...
 Зарание Вам блгадарен!!

Отвечает: EROS // 21.07.2007 / 21:26

Здравствуйте, weltkind!
 Ваш код, в принципе, верный. Но вы должны понимать как ЭТО работает.
 Дело в том, что локализованные надписи на
кнопках, надписях и т.д. загружаются в
 процедуре InitializeComponent.. Отсюда можно сделать вывод, что если Вы
 установите локаль ДО инициализации компонентов (например в
 конструкторе формы Sub New), то у Вас все заработает...
 Если же вы хотите менять надписи в режиме Run-Time, то это делается
 примерно так...
 
     '// EROS (VB 2005,ChangeUICulture Example)
     '// 
     '// Устанавливаем нужную локаль
     My.Application.ChangeUICulture("en-US")
'// Англ. локаль
     '// Получаем менеджера русурсов для этой локали
     Dim resources As ComponentResourceManager = New ComponentResourceManager(Me.GetType)
     '// Перебираем все контролы на форме и меняем надписи
     For Each item As Control In Controls
       resources.ApplyResources(item, item.Name)
     Next
     '// Это на тот случай если текст заголовка тоже локализованный
     resources.ApplyResources(Me, "$this")
     '// Наслаждаемся результатом
 
 -- 
 С уважением,
 EROS

Вопрос #000380: Visible and FOR

Автор вопроса: Taras // 21.07.2007 / 06:23

Здраствуйте!
 У меня такой вопросик 
 создал я форму на ней розместил 4 текстовых
поля (1 для ввода количиства видимых текстовых полей, видимый)
 3 невидимых тексттовых поля (невидимы)
 кнопку которой присвоил следущее значение
 Dim i As Integer
 Dim n As Integer
 n = text1.text
 For i=0 to n
 text(n).visible = true
 next
 
 после того как мы задади текстовому полю 1 значение и нажмем на кнопку
 в зависимости от заданого числа станут видимыми н-ное количиство текстовых форм
 но после нажатия на клавишу проесходить ошибка...

Где моя ошибка?
 
 --------------------------------------
 Категория: --- Visual Basic 5.0/6.0
 
 

Отвечает: Алексей Немиро // 21.07.2007 / 07:04

Здравствуйте, Тарас!
 
 Специально для вас накатал
небольшой, но интересный пример :)
 
 Создайте стандартный EXE-проект и просто вставьте ниже следующий код:
 001:
002:
003:
004:
005:
006:
007:
008:
009:
010:
011:
012:
013:
014:
015:
016:
017:
018:
019:
020:
021:
022:
023:
024:
025:
026:
027:
028:
029:
030:
031:
032:
033:
034:
035:
036:
037:
038:
039:
040:
041:
042:
043:
044:
045:
046:
047:
048:
049:
050:
051:
052:
053:
054:
055:
056:
057:
058:
059:
060:
061:
062:
063:
064:
065:
066:
067:
068:
069:
070:
071:
072:
073:
074:
075:
076:
077:
078:
079:
Option Explicit
'Пример
динамического создания контролов VB 6.0
'Автор примера: Немиро Алексей, 21 июля 2007 года
'Специально для проекта Kbyte.Ru (http://kbyte.ru)
'Copyright (c) Nemiro AS, 2007
'mailto:admin@kbyte.ru

'регистрируем обработчик событий для кнопки - cmdRefresh
Private WithEvents
cmdRefresh As CommandButton

Private Sub Form_Load()
 'подгоняем размер формы
 Form1.Width = 6000
 Form1.Height = 4000

 'добавляем надпись - Label
 Form1.Controls.Add "VB.Label", "Label1"
 With Form1!Label1
  .Top = 120
  .Left = 120
  .AutoSize = True
  .Caption = "Введите число:"
  .Visible = True
 End With

 'Добавляем текстовое поля для ввода чисел
 Form1.Controls.Add "VB.TextBox", "txtNum"
 With Form1!txtNum
  .Top = 120
  .Left = Form1!Label1.Width + Form1!Label1.Left +
120
  .Height = 300
  .Width = 500
  .Text = 0
  .Visible = True
 End With

 'Добавляем кнопку
 Set cmdRefresh =
Controls.Add("VB.CommandButton", "cmdRefresh")
 With Form1!cmdRefresh
  .Top = 120
  .Left = Form1!txtNum.Width + Form1!txtNum.Left + 120
  .Height = 320
  .Width =
1200
  .Caption = "Обновить"
  .Visible = True
 End With
  
End Sub

'Обработчик нажатия динамической кнопки
Private Sub
cmdRefresh_Click()
 Dim i As Long
 If Not IsNumeric(Form1!txtNum.Text) Then MsgBox "Допускаются только числа!", vbExclamation: Exit Sub

 'удаляем все контролы
с именем txtArr
g:
 For i = 0 To Form1.Controls.Count - 1
  If Left(Form1.Controls(i).Name, 6) = "txtArr" Then
  Form1.Controls.Remove Form1.Controls(i).Name
  GoTo g
  End If
 Next i

 'Добавляем указанное количество текстовых полей
 For i = 0 To CLng(Form1!txtNum.Text)
  Dim sName As String
  sName = "txtArr" & i
  Form1.Controls.Add "VB.TextBox", sName
  With Form1.Controls(Form1.Controls.Count - 1)
   .Top = Form1.Controls(Form1.Controls.Count - 2).Height + Form1.Controls(Form1.Controls.Count
- 2).Top + 20
   .Left = 120
   .Height = 300
   .Width = 1200
   .Text = "поле " & i
   .Visible = True
  End With
 Next i

End Sub

 
 
 -- 
 С наилучшими пожеланиями, 
 Немиро Алексей

Отвечает: Алексей Немиро // 21.07.2007 / 07:20

Dim i As Integer
 Dim n As Integer
 n = text1.text
 For i=0 to n
 text(n).visible =
true
 next

 
 Если text - это массив текстовых полей, то n должен быть равен UBound(text) - 1
 Для работы с массивами элементов управления, также можно использовать операторы Load и Unload:
 001:
002:
003:
Load Text(UBound(Text))
Text(UBound(Text) - 1).Text = "заходи на http://kbyte.ru!"
Text(UBound(Text) - 1).Visible = True


или
 001:
002:
003:
004:
005:
If UBound(Text) > 1 Then
For i = 1 To UBound(Text)
 Unload Text(i)
Next
i
End If

 или
 001:
002:
003:
004:
005:
006:
007:
Dim i As Long
For i = 0 To 100
 Load Text(UBound(Text))
 Text(UBound(Text) - 1).Text = "текстовое поле #" & i
 Text(UBound(Text) - 1).Left = Text(UBound(Text) - 2).Left + Text(UBound(Text) - 1).Width + 20
 Text(UBound(Text) - 1).Visible = True
Next i

 и т.д. и т.п.
 
 -- 
 С наилучшими пожеланиями,

 Немиро Алексей

Вопрос #000379: Ссылка в ВБ 6.0

Автор вопроса: Тарас // 21.07.2007 / 06:23

Здраствуйте :)
 
 Вопрос:
 Как добавить ссылку на Microsoft Excel
 6/7/8/9.0 (или любую другую
версию) Object Library
 у меня VB 6.0 sp5 русская версия и при выборе в меню проект я там добовать ссылку не вижу :(
 Если вас незатруднит пожалуйста скинте мне исходник по работе с екселем пожалуйста...
 или более подробно разпишите, пожелуйста...
 С уважением Тарас!!! :)
 
 --------------------------------------
 Категория: --- Visual Basic 5.0/6.0
 
 

Отвечает: Алексей Немиро // 21.07.2007 / 07:08

Здравствуйте, Тарас!
 
 Меню Проект (Project) => Ссылки (Reference), появится окно "Ссылки (Reference)", установите
 флажки на библиотеки, которые вы хотите добавить в проект, и нажмите "Ok".
 
 PS: Microsoft Excel скорей всего не будет, поскольку Эксель - это
 часть офиса, так что надо искать MS Office ;)
 
 -- 
 С наилучшими пожеланиями, 
 Немиро Алексей

Вопрос #000376: Открыть окно браузера с результатами поиска

Автор вопроса: Федоренко Дмитрий Константинович // 19.07.2007 / 06:36

Здравствуйте.
 
 Ранее через вашу систему был получен ответ, как можно заносить в форму в текстовое поле одной программы значение из формы текстового поля другой программы.
 При этом используются следующие функции для определения дескрипторов окна-формы и нужных элементов на нем:
 
 h = FindWindow(vbNullString, ByVal "ИМЯ_ФОРМЫ") 
 hText = FindWindowEx(h, 0, vbNullString, ByVal "ИМЯ_ТЕКСТОВОГО_ЭЛЕМЕНТА") 
 или
 hwnd1
= WindowFromPoint(cursorpos1.x, cursorpos1.y)
 
 Ответ на данный вопрос был успешно дан экспертами вашей системы с помощью демонстративной программы UltraSpy с используемыми в ней данными функциями, которую можно скачать с вашего сайта по ссылке http://kbyte.ru/Samples/Show.aspx?id=182.
 
 Но такое решение проблемы не помогает в случае, когда речь идет об окне-форме Internet Explorer.
 
 Например в частном случае. Если пройти по ссылке www.yandex.ru и попробовать описанным выше
методом получить дескриптор элемента (поля ввода) строки поиска, то он с помощью таких функции не находится (что и понятно, так как в данном случае это уже не элемент типа текст как в VB, а часть разметки HTML).
 
 Как же поступить в данном случае, при условии, что мы не можем открыть страничку в виде HTML кода и посмотреть имя этой переменной (строки ввода текста)?
 
 
 Заранее благодарю, Дмитрий.

Отвечает: Алексей Немиро // 19.07.2007 / 09:14

Здравствуйте, Дмитрий!
 
 В случае с Яндекс (и любой другой поисковой системой), если Вы хотите,
 чтобы Ваша программа открыла страницу с результатами поиска, то все
 довольно просто:
 
 001:
002:
003:
004:
005:
006:
007:
008:
009:
010:
011:
012:
013:
014:
Option Explicit
Private Declare Function ShellExecute Lib "shell32" _
Alias "ShellExecuteA" (ByVal hwnd As Long, _
ByVal lpOperation As String, ByVal lpFile As String, _
ByVal lpParameters As
String, ByVal lpDirectory As String, _
ByVal nShowCmd As Long) As Long

Private Const SW_SHOWNORMAL = 1

Private
Sub Form_Load()
 ShellExecute 0, vbNullString, _
 "http://www.yandex.ru/yandsearch?stype=&nl=0&text=Kbyte.Ru", vbNullString, _
 vbNullString, SW_SHOWNORMAL
End Sub

 
 В данном примере программа откроет страницу Яндекс с результатами
 поиска слова Kbyte.Ru. Получить такой url можно на самом
Яндекс, введя
 в строку поиска слово поиска, и нажав на кнопку «Найти». В указанном
 выше примере, достаточно просто поменять значение параметра text в url.
 
 Данный способ можно применять только для GET-запросов.
 
 -- 
 С наилучшими пожеланиями, 
 Немиро Алексей

Чтобы задать Ваш вопрос, отправьте его на адрес expert@kbyte.ru

Раздел Эксперт на сайте Kbyte.Ru

Наверх

Последнее на форумах

Ошибка при обновлении в Гриде | Автор: Буба Касторский
Добавлено: 01.08.2007 / 16:34 | ответов: 0 | просмотров: 11

в ГридВью поле marka_avto сделал TemplateField. Затем в EditItemTemplate, вместо TextBoxа по умолчания, поставил DropDownList1, чтобы марку авто можно было не вводить, а выбирать. В ПравкаDataBindings DropDownList1а свойству SelectedValue прописал BIND("marka_avto"). В ПравкаЭлементов прописал марки авто. При редактировании - по нажатию на кн.ПРАВКА на GridView - появляется ошибка: "DropDownList1 имеет SelectedValue, что недопустимо, тк этот элемент не существует в списке элементов. Имя параметра: value" Где не существует этот ДропДаунЛист?? где мне его прописать???
вот код:
<asp:GridView ID="GridView2" runat="server" AutoGenerateColumns="False" BackColor="White"
BorderColor="#3366CC" Borderstyle=""None"" BorderWidth="1px" CellPadding="4" DataKeyNames="kod_fio"
DataSourceID="SqlDataSource2" AllowSorting="True">
<FooterStyle BackColor="#99CCCC" ForeColor="#003399" />
<Columns>
<asp:CommandField ShowDeleteButton="True" />
<asp:CommandField ShowEditButton="True" />
<asp:CommandField ShowSelectButton="True" />
<asp:BoundField DataField="kod_fio" HeaderText="kod_fio" InsertVisible="False" ReadOnly="True"
SortExpression="kod_fio" />
<asp:BoundField DataField="fio" HeaderText="fio" SortExpression="fio" />
<asp:TemplateField HeaderText="tel" SortExpression="tel" ConvertEmptyStringToNull="False">
<EditItemTemplate>
<asp:DropDownList ID="DropDownList1" runat="server"
Width="133px" SelectedValue='<%# Bind("tel") %>'>
<asp:ListItem>99-99-99</asp:ListItem>
<asp:ListItem>88-88-88</asp:ListItem>
<asp:ListItem>77-77-77</asp:ListItem>
</asp:DropDownList>
</EditItemTemplate>
<ItemTemplate>
<asp:Label ID="Label1" runat="server" Text='<%# Bind("tel") %>'></asp:Label>
</ItemTemplate>
</asp:TemplateField>
</Columns>
<RowStyle BackColor="White" ForeColor="#003399" />
<SelectedRowStyle BackColor="#009999" Font-Bold="True" ForeColor="#CCFF99" />
<PagerStyle BackColor="#99CCCC" ForeColor="#003399" HorizontalAlign="Left" />
<HeaderStyle BackColor="#003399" Font-Bold="True" ForeColor="#CCCCFF" />
</asp:GridView>
как исправить эту ошибку?? где чего подправить ?? где и что прпописать, указать??

Ответить на это сообщение | Посмотреть эту тему на сайте | Форум Kbyte.Ru

Нужна видюха, порекомендуйте | Автор: Алексей
Добавлено: 01.08.2007 / 10:55 | ответов: 5 | просмотров: 39

Нужна нормальная видюха ценой не более 4k-4.5k руб.
PCI-E, Желательно с 512 метрами памяти. Что порекомендуете?

_________________
Это сообщение добавлено через Kbyte.Ru Forum Mail Conference (FMC)

Ответить на это сообщение | Посмотреть эту тему на сайте | Форум Kbyte.Ru

Ответ # 1 | Автор: BiT
Добавлено:01.08.2007 / 13:09
PCI Express Asustek EN7600GT/2DHT, Geforce 7600GT

Помоему идут как с 256 так и с 512, ни че так карточки - получе чем 7600GS

_________________
Это сообщение добавлено через Kbyte.Ru Forum Mail Conference (FMC)

Добавить ответ | Посмотреть эту тему на сайте | Форум Kbyte.Ru

Ответ # 2 | Автор: Алексей
Добавлено:01.08.2007 / 13:32
PCI Express Asustek EN7600GT/2DHT, Geforce 7600GT

Посмотрел в местном прайсе:
Видеокарта PCI-E Asus GeForce 7600GT 256MB DDR [EN7600GT/2DHT] DVI
TV-Out - 4 609 руб, но в данный момент ее нет..

Помоему идут как с 256 так и с 512, ни че так карточки - получе чем 7600GS

ну GS - это тоже самое, что и GT, только немного урезанная версия..
Смотрю в прайсе этих GS целая куча.. В мой ценовой диапазон что-то
ничего не попадает, либо слишком дешево, либо слишком дорого..

Есть Sapphire, что про них скажите?

Вот еще есть какой-то Palit:

Видеокарта PCI-E Palit GeForce 8600GT 256MB DDR3 [NE/8600T+T321] DVI TV-Out

смотрится стремно, но характеристики вроде бы ничего:

Чип GeForce 8600 GT
Кол-во процессоров 32 (работают на удвоенной частоте)
Поддержка API DirectX 10, OpenGL 2.0[/b]
Порты 2 выхода DVI-I

и цена около 4k рубасов.

у nVidea есть карточка:

Видеокарта PCI-E Geforce 7600GS 512MB DDR2 DVI TV-Out

характеристики, естественно хуже, но и цена на 1k меньше :)

фиг знает что брать, хоть

Видеокарта PCI-E Asus GeForce 7300GT 256MB DDR [EN7300GT/SILENT/HTD] DVI TV-Out

или GS..

вот еще есть

Видеокарта PCI-E Asus GeForce 8500GT 512MB 128-bit DDR-2 [EN8500GTSILENT/HTD/512M] DVI TV-Out

_________________
Это сообщение добавлено через Kbyte.Ru Forum Mail Conference (FMC)

Добавить ответ | Посмотреть эту тему на сайте | Форум Kbyte.Ru

Ответ # 3 | Автор: Bille Gates
Добавлено:01.08.2007 / 13:41
http://rostov-don.polaris.ru/descriptions/18/r335860.html

у меня такая... ничего не тормозит... на примере игры S.T.A.L.K.E.R вся графика по максимуму, тормаза наблюдаются, но жить можно, если уменьшить графику на 1.5 примерно то тормозов ваабще нет, или если убрать HDR то тормоза на макс графике улетучиваются ;)
Test Drive: Unlimited не тормозит совершенно при максимальной графике с 1280 X 1024 и HDR

Добавить ответ | Посмотреть эту тему на сайте | Форум Kbyte.Ru

Ответ # 4 | Автор: Алексей
Добавлено:01.08.2007 / 13:54

Видеокарта PCI-E Sapphire ATI Radeon X1950 Pro 256MB GDDR3 DVI TV-Out

есть у нас такая, всего 4 299 руб.

Вот вопрос по этой карте:

Технические характеристики этого решения позволяют использовать игровые приложения класса не выше SM 3.0 с приемлемым уровнем быстродействия при высоких установках графики

что за SM 3.0 класс такой?

_________________
Это сообщение добавлено через Kbyte.Ru Forum Mail Conference (FMC)

Добавить ответ | Посмотреть эту тему на сайте | Форум Kbyte.Ru

Ответ # 5 | Автор: Bille Gates
Добавлено:01.08.2007 / 14:31
это шейдеры версии 3 (класса 3)

Добавить ответ | Посмотреть эту тему на сайте | Форум Kbyte.Ru

Будни программиста (!всем смотреть!) | Автор: Алексей
Добавлено: 01.08.2007 / 09:50 | ответов: 0 | просмотров: 11

см. аттач

Ответить на это сообщение | Посмотреть эту тему на сайте | Форум Kbyte.Ru

Visual Studio 2008 Beta 2 & Framework 3.5 Beta 2 | Автор: Алексей
Добавлено: 01.08.2007 / 05:13 | ответов: 0 | просмотров: 10

Кого интересует, смотрите тут

_________________
Это сообщение добавлено через Kbyte.Ru Forum Mail Conference (FMC)

Ответить на это сообщение | Посмотреть эту тему на сайте | Форум Kbyte.Ru

Создание файла с именем из буфера обмена | Автор: MrLink
Добавлено: 30.07.2007 / 15:53 | ответов: 4 | просмотров: 61

Подскажите пожалуйста.
Нужна программа, которая создает текстовый документ на диске C:\ с именем, которое берется из буфера обмена (Clipboard).
(*Clipboard name*.txt)
Есть следующий код:

001:
002:
003:
004:
005:
006:
007:
008:
009:
010:
011:
012:
013:
014:
015:
016:
Imports System
Imports System.IO
Imports System.Net
Imports System.Text
Imports System.Windows.Forms

Module Module1f
  Sub Main()
    Dim returnValue As String
    returnValue =
Clipboard.GetText
    Console.WriteLine(returnValue) 'Вывод содержимого Clipboard в консоль
    System.IO.File.Create("C:\Clipboard name.txt")
  End Sub
End Module

Colorized by: Eros.CodeSyntaxColor Engine

Ответить на это сообщение | Посмотреть эту тему на сайте | Форум Kbyte.Ru

Ответ # 1 | Автор: Алексей
Добавлено:30.07.2007 / 16:00
001:
002:
003:
004:
005:
006:
007:
008:
009:
Sub Main()
  Dim iData As IDataObject = Clipboard.GetDataObject()
  Dim returnValue As String = CType(iData.GetData(DataFormats.Text), String)
  Console.WriteLine(returnValue) 'Вывод содержимого Clipboard в консоль
  System.IO.File.Create(returnValue)
End Sub

_______________________
Colorized by: Eros.CodeSyntaxColor Engine

_________________
Это сообщение добавлено через Kbyte.Ru Forum Mail Conference (FMC)

Добавить ответ | Посмотреть эту тему на сайте | Форум Kbyte.Ru

Ответ # 2 | Автор: MrLink
Добавлено:30.07.2007 / 16:54
Можно как-нибудь указать путь, где именно этот файл будет создаваться(например диск С) и чтобы у него было всегда расширение txt вне зависимости от буфера обмена?
Сейчас этот файл создается в папке с программой.

Добавить ответ | Посмотреть эту тему на сайте | Форум Kbyte.Ru

Ответ # 3 | Автор: Алексей
Добавлено:31.07.2007 / 05:26
Конечно же можно, как я понял, у вас там просто имя файла. Тогда:
System.IO.File.Create(String.Format("C:\{0}.txt", returnValue))
, где {0} - будет иметь значение, находящееся в переменной returnValue.

_________________
Это сообщение добавлено через Kbyte.Ru Forum Mail Conference (FMC)

Добавить ответ | Посмотреть эту тему на сайте | Форум Kbyte.Ru

Ответ # 4 | Автор: MrLink
Добавлено:31.07.2007 / 11:00
Спасибо за помощь.
Вот код для создания папки(директории) с именем, которое берется из буфера обмена:

001:
002:
003:
004:
005:
006:
007:
008:
009:
010:
011:
012:
013:
014:
015:
Imports System
Imports System.IO
Imports System.Net
Imports System.Text
Imports System.Windows.Forms

Module Module1f
  Sub Main()
    Dim iData As IDataObject = Clipboard.GetDataObject()
    Dim returnValue As String = CType(iData.GetData(DataFormats.Text), String)
    System.IO.Directory.CreateDirectory(String.Format("E:\{0}", returnValue))
  End Sub
End Module

Colorized by: Eros.CodeSyntaxColor Engine

Может каму-нибудь пригодится.

Добавить ответ | Посмотреть эту тему на сайте | Форум Kbyte.Ru

Наверх

Последние статьи

Взаимодействие с другими сайтами через HTTP (HttpWebRequest и HttpWebResponse)
Автор: Немиро Алексей | добавлено: 27.07.2007 / 14:01 | просмотров: 231

В данной статье речь пойдет о том, как можно программно заполнить и отправить Web-форму, а также получить результат с использованием довольно простых классов - HttpWebRequest и HttpWebResponse.

Работа с SQL – Запросы
Автор: Хабибулин А. (aka Bille Gates) | добавлено: 22.07.2007 / 04:43 | просмотров: 590

В данной статье рассмотрены часто используемые SQL-запросы и приведены примеры их использования.

Использование XML.Serialization
Автор: Немиро Алексей | добавлено: 19.07.2007 / 15:38 | просмотров: 80

В данном обзоре речь пойдет об использование XML.Serialization в .NET и ее применении на примере сохранения и считывания настроек программы с использованием синтаксиса языка Visual Basic .NET.

Выбор языка программирования для научных работ (2-я редакция)
Автор: Юдин С. Ю. | добавлено: 15.03.2007 / 02:49 | просмотров: 1723

Идея написания этой статьи возникла после того, как на одном из сайтов по физике http://physics.nad.ru/aniboard/messages/291.html я обнаружил интересный алгоритм моделирования движения тела в поле постоянной напряженности по различным направляющим. Вернее, меня заинтересовал не весь алгоритм, т.к. основа их всех одна (принцип Даламбера, если не считать квазиалгоритма с применением уравнений Лагранжа 2-го рода) и различаются они только способом определения реакций в месте соприкосновения тел. ...

Работаем с MIME
Автор: Немиро Алексей | добавлено: 29.11.2006 / 14:46 | просмотров: 1677

Не так давно мне пришлось немного поработать MIME (Multipurpose Internet Mail Extension) - это стандарт почтовых сообщений, в РуНете (Russian Internet) я не нашел нормального описания спецификации MIME, и посему решил написать небольшую статейку на эту тему. В данной статье вы узнаете об основных особенностях и стандартах MIME, а также научитесь «читать» MIME с использованием синтаксиса языка Visual Basic .NET 2005.

Статьи на Kbyte.Ru

Наверх

Интересные коды и решения

Как проверить, посещал пользователь страницу или нет?
Дата добавления: 31.07.2006 / 16:40 | просмотров: 428 | платформа: ASP .NET (VB)

Как отправить E-Mail?
Дата добавления: 01.08.2006 / 11:52 | просмотров: 1205 | платформа: ASP

Как добавить сайт в избранное?
Дата добавления: 24.03.2007 / 12:36 | просмотров: 248 | платформа: VB .NET

Поиск предложений
Дата добавления: 24.03.2007 / 11:06 | просмотров: 193 | платформа: RegEx

Как удалить картинку с элемента (Form, PictureBox, Image etc.)?
Дата добавления: 16.08.2006 / 20:02 | просмотров: 396 | платформа: VB

Как программано выровнить форму по центру экрана?
Дата добавления: 23.08.2006 / 18:59 | просмотров: 678 | платформа: VB .NET

Как удалить все ноды (Nodes) из TreeView?
Дата добавления: 24.03.2007 / 12:15 | просмотров: 159 | платформа: VB .NET

Как получить текущий физический путь?
Дата добавления: 31.07.2006 / 17:05 | просмотров: 447 | платформа: ASP .NET (VB)

Получение данных из Базы Данных MS Access
Дата добавления: 31.07.2006 / 17:39 | просмотров: 991 | платформа: ASP .NET (VB)

Как программно изменить тему страницы?
Дата добавления: 31.07.2006 / 13:40 | просмотров: 700 | платформа: ASP .NET (VB)

Универсальные коды на Kbyte.Ru

Наверх

Юмор на Kbyte.Ru

Плывет по морю американец на корабле, выплывает нептун и спрашивает:
"У меня 10 дочерей, сколько можешь взять на ночь?"
Американец подумал и отвечает:"Ну две... три..."
Нептун говорит:"Море не любит слабых" и потопил корабль...
Плывет англичанин, всплывает Нептун: "У меня 10 дочерей, сколько можешь взять на ночь?"
Англичанин думает и отвечает: "Ну пять... шесть..."
Нептун: "Море не любит слабых" и топит корабль...
Плывет на лодке грузин...
Нептун:"У меня 10 дочерей, сколько можешь взять на ночь?"
Грузин подумал и отвечает:"Одынадцат"
Нептун:"Так у меня же всего десять дочерей!!!"
Грузин:"Да ты мужик мнэ тожэ нравышса "

Рейтинг: 21
Всего голосов: 31