Форум программистов, компьютерный форум, киберфорум
Visual Basic .NET
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.62/13: Рейтинг темы: голосов - 13, средняя оценка - 4.62
8 / 8 / 10
Регистрация: 11.04.2012
Сообщений: 611
.NET 4.x

Как убрать обводку у текста

26.09.2012, 20:21. Показов 2810. Ответов 2
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Здрасте!
Захотелось сделать прозрачный интерфейс проги, но возникла проблема с текстом как показано на рисунке.
вот код:
VB.NET
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
32
33
34
Imports System.Runtime.InteropServices
    <Runtime.InteropServices.StructLayout(Runtime.InteropServices.LayoutKind.Sequential)>
    Public Structure MARGINS
        Public LeftWidth As Integer
        Public RightWidth As Integer
        Public TopHeight As Integer
        Public Buttomheight As Integer
    End Structure
 
    <Runtime.InteropServices.DllImport("dwmapi.dll")>
    Public Shared Function DwmExtendFrameIntoClientArea(ByVal hWnd As IntPtr, ByRef pMarinset As MARGINS) As Integer
    End Function
 
    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        Me.Height = 251
        TextBox1.TextAlign = HorizontalAlignment.Right
        TextBox1.Text = "0"
        Me.Width = 315
        ОбычныйToolStripMenuItem.Checked = True
        Try
            Me.TransparencyKey = Color.Cyan 'контралах не используйте этот цвет, или меняйте
            Me.BackColor = Color.Cyan 'контралах не используйте этот цвет, или меняйте
            MainMenuStrip.BackColor = Color.Transparent
            Dim margins As MARGINS = New MARGINS
            margins.LeftWidth = -1
            margins.RightWidth = -1
            margins.TopHeight = -1
            margins.Buttomheight = -1
            Dim result As Integer = DwmExtendFrameIntoClientArea(Me.Handle, margins)
        Catch ex As Exception
            MsgBox("Ошибка" & Err.Description, vbCritical, "Fatal Error")
            Application.Exit()
        End Try
    End Sub
Можно сделать чтобы текст был просто черным...без обводки?
и вот код с буфером обмена(вставка/копировать)
VB.NET
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
    Private Sub КToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles КToolStripMenuItem.Click
        Clipboard.SetDataObject(TextBox1.Text)
    End Sub
 
    Private Sub ВставитьToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles ВставитьToolStripMenuItem.Click
        Dim Inset As IDataObject = Clipboard.GetDataObject()
        TextBox1.Text = CType(Inset.GetData(DataFormats.Text), String)
    End Sub
 
    Private Sub Form1_KeyDown(sender As Object, e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
        If e.KeyCode = Keys.ControlKey + Keys.C Then
            Clipboard.SetText(TextBox1.Text)
        End If
        If e.KeyCode = Keys.ControlKey + Keys.V Then
            TextBox1.Text = Clipboard.GetText
        End If
    End Sub
Здесь проблема в том что когда с клавы (т.е. CTRL +C или +V) то работает...но текст копируется и вставлятся при самостоятельном выделении...как сделать так что бы при контрол с текст сам копировался в буфер из текстбокса1 и вставлялся при контрол в в текст бокс1 без выделения текста и фокусировки текст бокса.
И почему то первые два кода по буферу не работают...я тесли честно уже стал замечать что если выше указанные 3 кода написаны в 1 проге...то либо работают частично либо ваще не работают с чем это может быть связано?
Миниатюры
Как убрать обводку у текста  
0
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
26.09.2012, 20:21
Ответы с готовыми решениями:

Как убрать клетки из текста из Word?
извините у меня проблема не могу понят как убрать клетки из текст из ворд на vb.net

Загрузка текста в ListView: как убрать диалог выбора файла
Есть код: OpenFileDialog1.Filter = &quot;Text files (*.txt)|*.txt&quot; OpenFileDialog1.InitialDirectory =...

Как убрать пунктирную обводку вокруг ссылки в моззиле?
Подскажите пожалуйста, как убрать этот баг(пунктирнную обводку) в моззиле? В ссылку заключена картинка папки и собственно текст.

2
 Аватар для eJ_Studio
169 / 149 / 14
Регистрация: 13.07.2011
Сообщений: 477
26.09.2012, 21:17
VB.NET
1
2
3
  'Clipboard.SetData(DataFormats.Text, TextBox1.Text)
 
        'Clipboard.SetText(TextBox1.Text, TextDataFormat.UnicodeText)
0
8 / 8 / 10
Регистрация: 11.04.2012
Сообщений: 611
27.09.2012, 12:29  [ТС]
eJ_Studio, а это вместо чего?
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
27.09.2012, 12:29
Помогаю со студенческими работами здесь

Как убрать синию системную обводку у кнопки и других элементов ?
Подскажите пожалуйста, как убрать синию обводку , её еще называют маркер...много где обшарил, ничего не получается. Может кто-то убирал её...

Как в теге <a ...,где картинка(<img...) убрать обводку гиперссылки?
Как в теге &lt;a ...,где картинка(&lt;img...) убрать обводку гиперссылки?т.е что-бы у &lt;img... небыло обводки(ну т.е небыло примечательностей что...

Как реализовать обводку или тень для текста
Добрый день. Столкнулся с такой проблемой, что Буквы в вин формах сливаются с картинкой на заднем плане. Из-за цветовых гамм. ...

не могу убрать обводку таблицы
Ситуация такая, я хотел что бы картинки и описание было строго по вертикали и горизонтали выравнены. Поэтому я посадил все в таблицу, так...

Убрать пунктирную обводку на bitbtn
Когда нажимаешь на кнопку появляется пунктирная рамка. как ее убрать?


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Новые блоги и статьи
Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки
Neotwalker 08.03.2026
Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .
Модульная разработка через nuget packages
DevAlt 07.03.2026
Сложившийся в . Net-среде способ разработки чаще всего предполагает монорепозиторий в котором находятся все исходники. При создании нового решения, мы просто добавляем нужные проекты и имеем. . .
Модульный подход на примере F#
DevAlt 06.03.2026
В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .
Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование
8Observer8 05.03.2026
Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. Сканируйте QR-код на мобильном. Вращайте камеру одним пальцем,. . .
SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D
8Observer8 04.03.2026
Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .
SDL3 для Web (WebAssembly): Идентификация объектов на Box2D v3 - использование userData и событий коллизий
8Observer8 02.03.2026
Содержание блога Финальная демка в браузере. Итоговый код: finish-collision-events-sdl3-c. zip Сканируйте QR-код на мобильном и вы увидите, что появится джойстик для управления главным героем. . . .
Реалии
Hrethgir 01.03.2026
Нет, я не закончил до сих пор симулятор. Эта задача сложнее. Не получилось уйти в плавсостав, но оно и к лучшему, возможно. Точнее получалось - но сварщиком в палубную команду, а это значит, в моём. . .
Ритм жизни
kumehtar 27.02.2026
Иногда приходится жить в ритме, где дел становится всё больше, а вовлечения в происходящее — всё меньше. Плотный график не даёт вниманию закрепиться ни на одном событии. Утро начинается с быстрых,. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru