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

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

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

Author24 — интернет-сервис помощи студентам
Здрасте!
Захотелось сделать прозрачный интерфейс проги, но возникла проблема с текстом как показано на рисунке.
вот код:
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
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
26.09.2012, 20:21
Ответы с готовыми решениями:

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

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

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

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

2
169 / 149 / 14
Регистрация: 13.07.2011
Сообщений: 477
26.09.2012, 21:17 2
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  [ТС] 3
eJ_Studio, а это вместо чего?
0
27.09.2012, 12:29
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
27.09.2012, 12:29
Помогаю со студенческими работами здесь

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

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

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

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


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

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru