Программирование (VB,C#,ASP,.NET): новости, советы, примеры (comp.soft.prog.vbaspsharpnet) : Рассылка : Subscribe.Ru

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

Вопрос #001017: Бесплатные программы

Автор вопроса: Sarj // 03.06.2008 / 08:56

Уважаемые эксперты, поскажите пожалуйста бесплатный аналог Corel Draw. Очень надо...
 
 .....

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

Здравствуйте, Sarj.
 
 http://inkscape.org/
 
 -- 
 С наилучшими пожеланиями, 
 Немиро Алексей http://aleksey.nemiro.ru/

Вопрос #001014: Avi и Mpeg4 в Visual Basic

Автор вопроса: алексей // 02.06.2008 / 12:36

Как можно проигрывать эти форматы в вижал бэйсик? Пример на сайте не работает.
 
 .....

Отвечает: Алексей Немиро // 02.06.2008 / 12:43

Здравствуйте, Алексей.
 
 Можно использовать MediaPlayer. Для этого его нужно подключить к
 проекту через меню Project (Проект) -> Components (Компоненты), в
 появившемся окне найти и выбрать Windows Media Player. Далее, в
 панели инструментов должна появиться иконка плеера, который можно
 разместить на форме. Указать файл для проигрывания можно
 в свойство URL, или FileName в
зависимости от версии проигрывателя.
 
 -- 
 С наилучшими пожеланиями, 
 Немиро Алексей http://aleksey.nemiro.ru/

Вопрос #000952: Обработка файлов в C# (.NET 2.0)

Автор вопроса: Сергей // 09.05.2008 / 18:07

Доброе время суток!
 В общих словах, такая задача поставлена передо мной: На веб-странице 
 пользователь выбирает файл, нажимает кнопку "Импорт" и из этого файла 
 данные импортируются в таблицу БД Oracle.
 Файл должен быть текстовым, первые 2 строки- информация о времени и 
 логине того, кто выгружал. После них идут строки данных, поля 
 разделяются симоволом | .
 Просьба дать ссылки на документацию
по работе с файлами, которые могут 
 помочь :-)

Отвечает: Алексей Немиро // 12.05.2008 / 10:34

Здравствуйте, Сергей.
 
 Необходимые классы и функции для работы с файлами лежак в пространстве имен System.IO.
Также Вам могут понадобиться классы для работы с регулярными выражениями, которые лежат в пространстве имен System.Text.RegularExpressions.
 Что касается импорта файлов, то данные можно взять прямо из потока FileUpload.PostedFile.InputStream, передать их в StreamReader и обработать при помощи регулярных выражений. 
 
 -- 
 С наилучшими пожеланиями, 
 Немиро Алексей http://aleksey.nemiro.ru/

Вопрос #000947: Секундомер

Автор вопроса: Александр // 08.05.2008 / 17:40

Добрый день!
 Как сделать секундомер на сайте kbyte.ru много но вот все они выдают результат как 345сек, а мне надо 1:45:01 то есть в временом
формате. Как сделать???
 
 .....

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

Здравствуйте, Александр.
 
 Зная, что в минуте 60 секунд, в часе 60 минут, а в сутках 24 часа, можно легко превратить 345 секунд
в нужный формат.
 001:
002:
003:
004:
005:
006:
007:
008:
009:
Dim sec As Integer
sec = 345
Dim ssec As Integer, min As
Integer, hour As Integer
If sec > 59 Then
 min = Int(sec / 60)
 ssec = sec Mod 60
End If
If min > 59 Then
hour = Int(min / 60)
MsgBox sec & " сек. = " & hour & " ч. " & min & " мин. " & ssec & " сек."

 
 
 -- 
 С наилучшими пожеланиями, 
 Немиро Алексей http://aleksey.nemiro.ru/

Вопрос #000937: DLOOKUP??

Автор вопроса: Алексей // 05.05.2008 / 16:37

Почему те поля формы, которые имеют в ControlSource функцию Dlookup не записывают значение полей в конечную таблицу?
 
 --------------------------------------
 Категория: --- MS Access

Отвечает: Алексей Немиро // 06.05.2008 / 05:24

Здравствуйте, Алексей.
 
 Из справки MS Access: Функция Dlookup
 При использовании этой функции не учитываются
 несохраненные изменения записей подмножества. Если функция
 DLookup должна использовать измененные значения, необходимо сначала сохранить
 изменения с помощью команды Сохранить запись
в меню
 Записи, с помощью перемещения фокуса на другую запись или
 метода Update.

 
 -- 
 С наилучшими пожеланиями, 
 Немиро Алексей http://aleksey.nemiro.ru/

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

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

Наверх

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

Жирная пунктирная линия | Автор: Stuart
Добавлено: 23.07.2008 / 18:38 | ответов: 0 | просмотров: 19

Здравствуйте Друзья!
Подскажите пожалуйста, как в VB6 нарисовать толстую пунктирную линию.

Если рисовать просто пунктирную линию, то я делаю так:

001:
002:
003:
004:
005:
Me.ScaleMode = 3 '3-Pixel
Me.DrawStyle = 1 '3-пунктирная линия
Me.Line (0, 15)-(300, 15) 'Рисую линию

Colorized by: Eros.CodeSyntaxColor Engine

Если просто жирную, то так:

001:
002:
003:
004:
Me.DrawWidth = 2 
Me.Line (0, 15)-(300, 15)

Colorized by: Eros.CodeSyntaxColor Engine

Я думал если сделать, вот так вот:

001:
002:
003:
004:
005:
006:
Me.ScaleMode = 3 
Me.DrawWidth = 2 
Me.DrawStyle =
1 
Me.Line (0, 15)-(300, 15)

Colorized by: Eros.CodeSyntaxColor Engine

То у меня нарисуется жирная пунктирная линия, но не фига=(
Может кто знает как нарисовать такую линию ?

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

Использование имен переменных в коде на C# | Автор: Юрий.Н
Добавлено: 23.07.2008 / 14:29 | ответов: 5 | просмотров: 100

Здравсвуйте,
Аппликация пишется на C#, ASP.NET 2.0.
Необходимо создать универсальный генератор линков, где по заданному шаблону (маске) будет формироваться URL.
Пример:
...
private string p_regionName = "New Vasuki";
private string p_itemId = "2335";
private string p_urlMask =
"http://www.mysite.info/{%p_regionName%}/products/{%itemId%}/";
URL mask:

public string GetUrl(){
... ... ...
return "http://www.mysite.info/New Vasuki/products/2335/";
}

Метод GetUrl() будет использоваться в разных классах, поэтому имена переменных будут меняться. В C# нет функции eval, можно ли как-то эту задачу?

Спасибо

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

Ответ # 1 | Автор: Алексей
Добавлено:23.07.2008 / 15:03
либо
String.Format("http://www.mysite.info/{0}/products/{1}/", "hello", "world");
либо, можно регулярные выражения использовать.
Если нужен url-реврайтер, то http://aleksey.nemiro.ru/Soft/Complete-Solutions/UrlRewritingNet20.nspx
там регулярки используются, в конфиге прописываются.

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

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

Ответ # 2 | Автор: Юрий.Н
Добавлено:23.07.2008 / 16:32
Спасибо, Алексей, но это не совсем то... Я просто плохо объяснил задачу... Наверное решение все-таки в Reflection. Тут на эту тему уже сложилась переписка :о)
http://www.gotdotnet.ru/Forums/Web/571230.aspx

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

Ответ # 3 | Автор: Алексей
Добавлено:23.07.2008 / 16:51
Почитал, по-моему все излишне усложняется. Проще всего использовать
String.Format, шаблон url-а хранить для каждых типов продуктов в базе и по нему
уже формировать url.

./product/[prod_id], к другому - ./cha-cha-cha/products/[prod_id]/chu-chu-chu, и т.д.

т.е. в базе будет
./product/{0}
и
./cha-cha-cha/products/{0}/chu-chu-chu
Через String.Format пихать нужные параметры, и все..

Я хочу сделать для каждого продукта свой класс (саб-класс
родительского), одним из свойств которого будет LinkMask, а метод
наложения переменных (в каждом случае разных) на эту маска поместить в
родительский класс. Тогда массив продуктов становиться очень легким
для показа в любых ипостасях.

вполне подходящий ответ, простой и достаточно универсальный, для родителя

001:
002:
003:
004:
005:
006:
007:
008:
009:
010:
011:
private static string GetUrl(string urlTemplate, params object[] urlParameters)
  {
    return string.Format(urlTemplate, urlParameters);
  }
  private static string GetUrl(params object[] urlParameters)
  {
    return GetUrl("http://{0}/{1}...", urlParameters);
  }

_______________________
Colorized by: Eros.CodeSyntaxColor Engine

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

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

Ответ # 4 | Автор: Алексей
Добавлено:23.07.2008 / 16:54
У каждого, естес-с-с-но, есть id, name, а иногда и groupName.

а если все более ли менее стабильно, то лучше использовать
UrlRewriter, написать несколько шаблонов и все.

001:
002:
003:
004:
005:
006:
007:
008:
009:
010:
011:
012:
013:
<add name="ShowProduct"
     virtualUrl="^~/([\w\d\-\+]+)/([\w\d\-\+]+).aspx"
     rewriteUrlParameter="ExcludeFromClientQueryString"
     destinationUrl="~/Show.aspx?group=$1&product=$2"
     ignoreCase="true"
    />

   <add name="ShowProduct2"
     virtualUrl="^~/([\w\d\-\+]+).aspx"
     rewriteUrlParameter="ExcludeFromClientQueryString"
     destinationUrl="~/Show.aspx?product=$1"
     ignoreCase="true"
    />

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

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

Ответ # 5 | Автор: Юрий.Н
Добавлено:23.07.2008 / 17:01
Вы правы. Я и сам, копнул с рефлекшн поглубже, худо стало... Так что , мы пойдем другим путем :о)

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

помогите разобратся | Автор: ruid
Добавлено: 23.07.2008 / 11:16 | ответов: 3 | просмотров: 81

Я недавно начал сам разбираться с VB 6.0 и не могу понять как мне обьявить переменную чтобы в нее записывалось значение веденое в текстбоксе и как его (тоесть значение) можно было прописать на второй форме в лейбле заранее спасибо

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

Ответ # 1 | Автор: Игорь Голов
Добавлено:23.07.2008 / 12:44
Всё непросто, а очень просто:

001:
002:
003:
004:
005:
Dim txt As String
txt=me.Text1.Text
Form2.Label1.Caption = txt

Colorized by: Eros.CodeSyntaxColor Engine

Можно намного проще поступить:

001:
002:
003:
Form2.label1.Caption=Form1.Text1.Text

Colorized by: Eros.CodeSyntaxColor Engine

В качестве Form2, Form1,Text1,Label1 нужно подставить имена формы, текстБокса и метки (свойство Name)
Если имена не менялись, можно оставить код как есть
Удачи!

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

Ответ # 2 | Автор: ruid
Добавлено:23.07.2008 / 13:13
спасибо просто надо было мне понять как работает переменная

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

Ответ # 3 | Автор: Игорь Голов
Добавлено:23.07.2008 / 14:26
Переменная - это поименованная область памяти, в которую заносится какое - либо значение.
Переменные разных типов бывают. И размер области памяти, выделяемой переменной,зависит от её типа.

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

Проблема с печатью | Автор: LinuxChata
Добавлено: 22.07.2008 / 13:38 | ответов: 2 | просмотров: 59

Здравствуйте. Необходимо распечатать содержимое двух PictureBox на двух разных страницах

Private Sub ПечатьToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ПечатьToolStripMenuItem1.Click
PrintPreviewDialog1.Document = PrintDocument1
PrintPreviewDialog1.ShowDialog()
End Sub

Private Sub PrintDocument1_PrintPage(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage
Dim g As Graphics = e.Graphics
Dim row, colomn As Integer
Dim PrintFont As New Font("Arial", 10)
Dim t As New druk.print
Dim intPrintAreaHeight, intPrintAreaWidth, marginLeft, marginTop As Int32
'определяет размер страницы
With PrintDocument1.DefaultPageSettings
intPrintAreaHeight = .PaperSize.Height - .Margins.Top - .Margins.Bottom
End With

'определяет размер изображения
row = PictureBox1.Image.Height

If row > intPrintAreaHeight Then
g.DrawImage(PictureBox1.Image, 0, 0)
e.HasMorePages = True
Else
e.HasMorePages = False
End If
g.DrawImage(PictureBox2.Image, 0, 0)
e.HasMorePages = False

End Sub

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

Ответ # 1 | Автор: LinuxChata
Добавлено:22.07.2008 / 13:44
В результате программа создает одну страницу и накладывает одно изображение на другое

P.S. Кроме того, нужно чтобы первая страница была книжная, а вторая альбомная.

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

Ответ # 2 | Автор: LinuxChata
Добавлено:23.07.2008 / 12:57
Реаливал таким образом

'номер страницы
Dim count As Integer = 0

Private Sub PrintDocument1_PrintPage(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage
Dim g As Graphics = e.Graphics

If count = 0 Then
g.DrawImage(PictureBox1.Image, 0, 0)
t.page1druk(e, l, A, B, p.Dept, p.De, p.L1, p.lypt, p.NumPointQuad, p.SABpt, p.SAB)
'есть еще страницы, т.е. нужно еще раз вызвать это событие
e.HasMorePages = True
e.PageSettings.Landscape = True
count = count + 1
ElseIf count = 1 Then
'альбомна сторінка
e.PageSettings.Landscape = True
g.DrawImage(PictureBox2.Image, 0, 0)
'страницы еще есть
e.HasMorePages = True
count = count + 1
Else
If count = 3 Then Exit Sub
'альбомная страница
e.PageSettings.Landscape = True
g.DrawImage(PictureBox3.Image, 0, 0)
'страниц бальше нет
e.HasMorePages = False
Exit Sub
End If
End Sub

Private Sub ПечатьToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ПечатьToolStripMenuItem1.Click
Try
count = 0
PrintPreviewDialog1.Document = PrintDocument1
PrintPreviewDialog1.ShowDialog()
Catch exp As Exception
MsgBox("Ошибка")
End Try
End Sub

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

CommandLine | Автор: йа David
Добавлено: 21.07.2008 / 20:48 | ответов: 3 | просмотров: 100

Всем превед!

Открыли проводник, в нем выбрали несколько файлов и папок, нажали правую кнопку мыши, в меню выбрали - "ThreadCopy" (Так называется моя программа) после выбора explorer обращается в реестр и запускает вот что "путь к моей программе Путь к выделенному файлу''

Проблема в том что если было выделенно несколько файлов или папок, моя программа запускается несколько раз, причем, в каждой из программ по одному пути к файлу или папке.

Необходимо: Все пути к выделенным файлам и папкам отправить в одну программу, одной коммандной строкой...

з.ы. изобретаю KillCopy на Visual Basic .NET

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

Ответ # 1 | Автор: 5acredphoenix
Добавлено:21.07.2008 / 21:01
Ну раз .NET, значит всё вроде как и легче. По-моему есть что-то в стандартных средствах: возможен запуск только одной копии проги, а коммандные строки всех последующих вызовов переправляются в первую копию.. Надо покопать.

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

Ответ # 2 | Автор: йа David
Добавлено:21.07.2008 / 21:33
Вся проблема в перенаправлении (не пытался это сделать, но не уверен что это будет быстро)

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

Ответ # 3 | Автор: йа David
Добавлено:21.07.2008 / 22:58
так йа и думал, - добился перенаправления, но это занимает много времени (200 - 1000 мс (примерно))
особенно чувствуется, когда ты добовляешь больше 70 папок или файлов...

' Этот блок кода необходимо поместить в файле 'Application.Designer.vb' (все это для VB.NET 2008 (Express Edition))
' В случае повторного запуска программы, первая принимает аргументы коммандной строки, вторая исчезает...
Private Sub MyApplication_StartupNextInstance(ByVal sender As Object, ByVal e As Microsoft.VisualBasic.ApplicationServices.StartupNextInstanceEventArgs) Handles Me.StartupNextInstance
If My.Application.CommandLineArgs.Count() > 0 Then
Dim Value As String = ""
For index = 0 To My.Application.CommandLineArgs.Count() - 1
Value = Value & e.CommandLine(index) & Environment.NewLine()
Next
My.Forms.Form1.TextBox3.Text &= Value
End If
End Sub

' PS На вашей форме должен быть TextBox3, больше ничего не нужно...

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

Наверх

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

Нестандартная форма
Автор: Zhenik Ipatov | добавлено: 05.05.2008 / 12:42 | просмотров: 665

Первое что бросается в глаза, когда первый раз используешь программу это конечно же её облик, внешний вид. Есть вероятность что если пользователю не понравится внешний вид окна, то он не будет пользоваться продуктом. Значит нам, не побоюсь этого слова, программистам нужно как можно лучше, удобнее, понятнее, красивее и приветливее сделать лицо программы. Нужно как можно эффектнее преподнести программу. С самого первого появления Windows окна получили прямоугольный стандарт и все User Control’ы

Как узнать размер базы данных MySQL через php
Автор: Николай Рудченко | добавлено: 14.02.2008 / 13:01 | просмотров: 1147

В этой небольшой статье вы узнаете, как получить размер вашей базы данных (БД) MySQL используя язык программирования PHP.

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

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

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

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

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

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

Статьи на Kbyte.Ru

Наверх

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

Анализ даты стандарта RFC822
Дата добавления: 24.03.2007 / 10:58 | просмотров: 1699 | платформа: RegEx

Как удалить лишние пробелы из текста?
Дата добавления: 16.08.2006 / 19:05 | просмотров: 2413 | платформа: VB

Преобразование числа в Украинскую валюту
Дата добавления: 16.08.2006 / 19:30 | просмотров: 1454 | платформа: VB

Как получить позицию курсора на экране?
Дата добавления: 16.08.2006 / 19:47 | просмотров: 1534 | платформа: VB

Как запретить пользователю перемещать форму?
Дата добавления: 31.07.2006 / 12:05 | просмотров: 1316 | платформа: VB

Как удалить данные из базы данных?
Дата добавления: 31.07.2006 / 12:48 | просмотров: 1797 | платформа: VB

Любое число не равное нулю
Дата добавления: 24.03.2007 / 11:31 | просмотров: 1273 | платформа: RegEx

Анализ IP-адреса
Дата добавления: 24.03.2007 / 10:56 | просмотров: 1745 | платформа: RegEx

Как запустить процесс и дождаться его завершения?
Дата добавления: 24.03.2007 / 12:12 | просмотров: 1647 | платформа: VB .NET

Округление до десятых, сотых, тысячных и т.д.
Дата добавления: 04.02.2007 / 21:09 | просмотров: 2866 | платформа: VB

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

Наверх

Юмор на Kbyte.Ru

Три способа, которыми советские программисты достают программное обеспечение: воровство, грабеж, и обмен награбленным.

Рейтинг: 317
Всего голосов: 506