Программирование (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

Наверх

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

Электронная почта | Автор: tamu
Добавлено: 31.05.2009 / 12:15 | ответов: 0 | просмотров: 16

Помогите написать программу на visual basic 6.0. Пользователь пишет текст в текстовое поле и при нажатии на кнопку, оно отправляется на электронный адрес, заданный в программе.

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

отобразить информацию, записанную в виде HTML-кода | Автор: Alex979
Добавлено: 29.05.2009 / 18:43 | ответов: 4 | просмотров: 83

Подскажите, пожалуйста, каким образом можно отобразить в
контроле ДропДаунЛист информацию, записанную в БД в виде
HTML-кода ?

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

Ответ # 1 | Автор: Алексей
Добавлено:30.05.2009 / 04:30
записанную в БД в виде HTML-кода ?

делать Server.HtmlEncode("текст") либо перед записью данных в бд,
либо при выводе данных.

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

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

Ответ # 2 | Автор: Alex979
Добавлено:30.05.2009 / 10:27
К сожалению, не получается.
Вот, что хранится в БД - "J/(g·K<sup>1</sup><sup>/</sup><sup>2</sup>)"
Примерно так это должно выглядеть на форме - J/(g·K1/2) (1/2 должна быть показателем степени)
Вот, что возвращает Server.HtmlEncode() -
"J/(g&middot;K<sup>1</sup><sup>/</sup><sup>2</sup>)"

Единственный контрол, который без заморочек отображает то, что нужно - зто Label.
Если нет других способов, придется долго и нудно переделывать ДропДаунЛисты :(((((

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

Ответ # 3 | Автор: Алексей
Добавлено:30.05.2009 / 10:59
Тэги в DropDownList, и любых других html-контролах, отображаться как
в html-документе (document) не будут.
Придется рисовать свой контрол, в основном на JavaScript.
Хотя возможно, в Интернете можной найти готовые решения, если
поискать :)
Скорей всего будет что-то на основе div-ово.

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

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

Ответ # 4 | Автор: Alex979
Добавлено:30.05.2009 / 11:38
Спасибо за оперативные ответы, будем рисовать...

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

VBS. что неверно в работе ф-ции GetfileName("*.xml") | Автор: GAV_Alexey
Добавлено: 29.05.2009 / 10:26 | ответов: 1 | просмотров: 41

Добрый день.
В папке находятся файлы с разным расширением. с расширением *.xml только один. Но неизвестно его имя. Пытался прописать код, но функция выдаёт звёздочку (*.xml)
где ошибка?

001:
002:
003:
004:
005:
006:
007:
008:
call GetAnExtension("C:\Documents and Settings\All Users\Документы\*.xml") ' вызов функции

Function GetAnExtension(filename) ' объявление функции 
 Dim fso   ' объявление переменных
  Set fso = CreateObject("Scripting.FileSystemObject") ' создание объекта
  GetAnExtension = fso.GetfileName("C:\Documents
and Settings\All Users\Документы\*.xml") ' выполнение  ВИДИМО ЗДЕСЬ ОШИБКА
  msgbox GetAnExtension ' показ резльтата   ЗДЕСЬ ПОКАЗЫВАЕТСЯ НЕОЖИДАЕМЫЙ РЕЗУЛЬТАТ
End Function

vbs-файл в архиве
Заранее Спасибо. С уважением, GAV

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

Ответ # 1 | Автор: GAV_Alexey
Добавлено:29.05.2009 / 11:57
Пытался прописать код, но функция выдаёт звёздочку (*.xml)
где ошибка?

Ошибка в подходе. Такой код работает ВЕРНО:

001:
002:
003:
004:
005:
006:
007:
008:
009:
Set FSO = CreateObject("Scripting.FileSystemObject")
Set Folder = FSO.GetFolder("C:\Documents and Settings\All Users\Документы")
Rashir ="*.xml"
For Each Rashir in Folder.Files
NameFile = Fso.GetFileName(Rashir)
if right(NameFile,3)="xml" then msgbox NameFile
On Error Resume Next
i = i + 1
next

Спасибо, что написав в форум и не дождавшись ответа я включил содержимое Черепа . Самому удалось расставить точки над "Ё-МОЁ"
продолжаю разработку

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

2 плеера на 2 соундкарты | Автор: andreywin
Добавлено: 26.05.2009 / 00:26 | ответов: 0 | просмотров: 39

Суть. Может кто сталкивался. Есть 2 звуковые карты.
На одной надо выводить звук от фильма, а на второй MP3 слушать. Как реализовать?
Пробовал через DirectX, но не получается :(
HELP!
желательно с примерами кодов.

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

Еще раз по поводу отправки почты | Автор: andreywin
Добавлено: 24.05.2009 / 20:26 | ответов: 5 | просмотров: 123

ОC Windows 7, VS 2008.
Почту невозможно отправить. Вот код:

001:
002:
003:
004:
005:
006:
007:
008:
009:
010:
011:
012:
013:
014:
015:
016:
017:
018:
019:
020:
021:
022:
023:
Imports System.Net.Mail
Imports
System.Net.Mail.MailMessage
Imports System.Net.Mail.SmtpClient
'--------------------------------------------------------
 Private Sub MailSender() 'отправка почтового сообщения
    Dim mail As New MailMessage()
    Dim smtp As New SmtpClient("smtp.i.ua")
    mail.From = New MailAddress("andreywin@i.ua")
    'Кому 
    mail.To.Add("andreywin@i.ua")
    mail.Subject = "COMPUTER1"
    mail.Body = "192.168.0.243"

    smtp.Credentials = New Net.NetworkCredential("andreywin", "pass")
    'smtp.EnableSsl = True
    Try
      smtp.Send(mail)
    Catch
      MsgBox("Не удалось отправить ")
    End Try
  End Sub

Colorized by: Eros.CodeSyntaxColor Engine

HELP!!!!!!!!!!!! не работает! под XP тоже не хочет!

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

Ответ # 1 | Автор: Edlin
Добавлено:25.05.2009 / 08:59
Какое именно исключение выдается? Что в нем написано?

001:
002:
003:
Catch ex As Exception

Colorized by: Eros.CodeSyntaxColor Engine

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

Ответ # 2 | Автор: andreywin
Добавлено:25.05.2009 / 20:37
не коннектится к SMTP серверу. А так , код полностью рабочий, проверил с mail.ru :)

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

Ответ # 3 | Автор: andreywin
Добавлено:25.05.2009 / 21:14
System.Net.Mail.SmtpException was unhandled
Message="Сбой при отправке сообщения электронной почты."
Source="System"
StackTrace:
в System.Net.Mail.SmtpClient.Send(MailMessage message) в WindowsApplication1.Form1.MailSender() в D:\WAN_IP MAIL\myip.vb:строка 73 в WindowsApplication1.Form1.Form1_Load(Object sender, EventArgs e) в D:\WAN_IP MAIL\myip.vb:строка 25 в System.EventHandler.Invoke(Object sender, EventArgs e) в System.Windows.Forms.Form.OnLoad(EventArgs e) в System.Windows.Forms.Form.OnCreateControl() в System.Windows.Forms.Control.CreateControl(Boolean fIgnoreVisible) в System.Windows.Forms.Control.CreateControl() в System.Windows.Forms.Control.WmShowWindow(Message& m) в System.Windows.Forms.Control.WndProc(Message& m) в System.Windows.Forms.ScrollableControl.WndProc(Message& m) в System.Windows.Forms.ContainerControl.WndProc(Message& m) в System.Windows.Forms.Form.WmShowWindow(Message& m) в System.Windows.Forms.Form.WndProc(Message& m) в System.Windows.Forms.Control.ControlNativeWindow.OnMessage(Message& m) в System.Windows.Forms.Control.ControlNativeWindow.WndProc(Message& m) в System.Windows.Forms.NativeWindow.DebuggableCallback(IntPtr hWnd, Int32 msg, IntPtr wparam, IntPtr lparam) в System.Windows.Forms.SafeNativeMethods.ShowWindow(HandleRef hWnd, Int32 nCmdShow) в System.Windows.Forms.Control.SetVisibleCore(Boolean value) в System.Windows.Forms.Form.SetVisibleCore(Boolean value) в System.Windows.Forms.Control.set_Visible(Boolean value) в System.Windows.Forms.Application.ThreadContext.RunMessageLoopInner(Int32 reason, ApplicationContext context) в System.Windows.Forms.Application.ThreadContext.RunMessageLoop(Int32 reason, ApplicationContext context) в System.Windows.Forms.Application.Run(ApplicationContext context) в Microsoft.VisualBasic.ApplicationServices.WindowsFormsApplicationBase.OnRun() в Microsoft.VisualBasic.ApplicationServices.WindowsFormsApplicationBase.DoApplicationModel() в Microsoft.VisualBasic.ApplicationServices.WindowsFormsApplicationBase.Run(String[] commandLine) в WindowsApplication1.My.MyApplication.Main(String[] Args) в 17d14f5c-a337-4978-8281-53493378c1071.vb:строка 81 в System.AppDomain._nExecuteAssembly(Assembly assembly, String[] args) в System.AppDomain.ExecuteAssembly(String assemblyFile, Evidence assemblySecurity, String[] args) в Microsoft.VisualStudio.HostingProcess.HostProc.RunUsersAssembly() в System.Threading.ThreadHelper.ThreadStart_Context(Object state) в System.Threading.ExecutionContext.Run(ExecutionContext executionContext, ContextCallback callback, Object state) в System.Threading.ThreadHelper.ThreadStart()
InnerException: System.Net.WebException
Message="Невозможно соединиться с удаленным сервером"
Source="System"
StackTrace:
в System.Net.ServicePoint.GetConnection(PooledStream PooledStream, Object owner, Boolean async, IPAddress& address, Socket& abortSocket, Socket& abortSocket6, Int32 timeout) в System.Net.PooledStream.Activate(Object owningObject, Boolean async, Int32 timeout, GeneralAsyncDelegate asyncCallback) в System.Net.PooledStream.Activate(Object owningObject, GeneralAsyncDelegate asyncCallback) в System.Net.ConnectionPool.GetConnection(Object owningObject, GeneralAsyncDelegate asyncCallback, Int32 creationTimeout) в System.Net.Mail.SmtpConnection.GetConnection(String host, Int32 port) в System.Net.Mail.SmtpTransport.GetConnection(String host, Int32 port) в System.Net.Mail.SmtpClient.GetConnection() в System.Net.Mail.SmtpClient.Send(MailMessage message)
InnerException: System.Net.Sockets.SocketException
ErrorCode=10060
Message="Попытка установить соединение была безуспешной, т.к. от другого компьютера за требуемое время не получен нужный отклик, или было разорвано уже установленное соединение из-за неверного отклика уже подключенного компьютера 94.100.177.1:25"
NativeErrorCode=10060
Source="System"
StackTrace:
в System.Net.Sockets.Socket.DoConnect(EndPoint endPointSnapshot, SocketAddress socketAddress) в System.Net.Sockets.Socket.InternalConnect(EndPoint remoteEP) в System.Net.ServicePoint.ConnectSocketInternal(Boolean connectFailure, Socket s4, Socket s6, Socket& socket, IPAddress& address, ConnectSocketState state, IAsyncResult asyncResult, Int32 timeout, Exception& exception)
InnerException:

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

Ответ # 4 | Автор: Edlin
Добавлено:26.05.2009 / 08:34
Судя по тексту исключения, у тебя не устанавливается соединение с SMTP-сервером.

Попытка установить соединение была безуспешной, т.к. от другого компьютера за требуемое время не получен нужный отклик, или было разорвано уже установленное соединение из-за неверного отклика уже подключенного компьютера 94.100.177.1:25

Проверь работоспособность сервера.

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

Ответ # 5 | Автор: andreywin
Добавлено:26.05.2009 / 12:27
спасибо , разобрался, проблема в портах SMTP серверов. Например на mail.ru меня пустили по порту 2525 :)

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

Наверх

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

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

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

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

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

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

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

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

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

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

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

Статьи на Kbyte.Ru

Наверх

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

Преобразование строки в Double, исключая проблемы с разделителем
Дата добавления: 27.04.2007 / 15:53 | просмотров: 4002 | платформа: VB .NET

DataGridView: Как добавить новую колонку?
Дата добавления: 02.08.2006 / 09:53 | просмотров: 3474 | платформа: VB .NET

Проверка существования файла с использованием API
Дата добавления: 31.07.2006 / 12:41 | просмотров: 3716 | платформа: VB

Как связать расширение файла с приложением?
Дата добавления: 04.08.2006 / 08:56 | просмотров: 2766 | платформа: VB .NET

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

Как перевести посетителя на другую страницу?
Дата добавления: 31.07.2006 / 14:37 | просмотров: 2249 | платформа: ASP .NET (VB)

Как изменить фон в каждом элементе списка?
Дата добавления: 31.07.2006 / 14:13 | просмотров: 5338 | платформа: ASP .NET (VB)

Запуск программы
Дата добавления: 21.08.2006 / 20:19 | просмотров: 4494 | платформа: VB

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

Перекодировка текста с латинской раскладки в русскую
Дата добавления: 16.08.2006 / 19:12 | просмотров: 4619 | платформа: VB

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

Наверх

Юмор на Kbyte.Ru

Пришел в новую контору работать. У всех юзверей выясняю пароли на вход в сетку. Один из них отвечает: пароль две звездочки. Ну это, говорю, я понял, а пароль-то какой? Две звездочки. Ну ясно, что на экране вы видите две звездочки, а пароль-то какой? Ну какой же вы непонятливый, вот смотрите: и жмет shift+8, shift+8. Я упал. Людям надо верить. :)

Рейтинг: 538
Всего голосов: 836