在delphi 11.3 Form窗体的panel 中嵌入 Fmx窗体

C#MDI多窗体及选项卡程序，对Winform程序的学习C#MDI多窗体及选项卡程序，对Winform程序的学习

在码农的生活中，很多级码农都有这样的经历，会被一个小小的技术问题拦住，然后进度跟不上了，被老板XXXX一大通了。心情不爽了。 好吧，这个曾经是我遇到拦路虎之一。但事实上不是什么大技术。技术就是一层纸，破了就破了。 这是一个关于如何跨窗体操作控件或过程的一个例子。比如，你想用窗体A的按键来执行窗体B的文本框变色。 Imports System Imports System.Threading Imports System.Text Public Class Form1 Private Sub Form1_Load(sender As Object, e As EventArgs) Handles Me.Load CheckForIllegalCrossThreadCalls = False '不写这行，会出错，不允许线程的数据写到TextBox1.Text 中去。 Form2.Show() End Sub Private Sub form1_FormClosing(sender As Object, e As EventArgs) Handles Me.FormClosing ' If runThread.IsAlive = True Then runThread.Abort() End Sub Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click '用的是委托方式 Me.Invoke(New MethodInvoker(AddressOf THREAD2)) End Sub Private Sub THREAD2() Static j As Integer j = j + 1 TextBox1.Text = " 这是 [线程] 操作" & vbCrLf & _ " Button2被点了: " & j & " 次" & vbCrLf & "要求是from2.textbox.text= textbox1.text 。[问题]但为什么不能成功显示呢？" End Sub Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged Form2.TextBox1.Text = TextBox1.Text End Sub Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click Static j As Integer j = j + 1 TextBox1.Text = " 这是 [非线程] 操作" & vbCrLf & _ "Button3 点击了: " & j & " 次" & vbCrLf & _ "要求是from2.textbox.text= textbox1.text， 可以成功显示，这个是对的。" End Sub End Class

window窗体与wpf窗体相互调用

内容索引:VB源码,网络相关,流量监控,透明窗体　　vb源代码实现网络瞬间流量的统计，上传、下载流量都可监控到，网络部分的原理主要是通过统计网卡字节来实现，窗体部分加入半透明效果，修改参数可改变窗体透明度，透明函数SetLayeredWindowAttributes，本函数可以轻松的实现半透明窗体。 　　按照微软的要求，透明窗体窗体在创建时应使用WS_EX_LAYERED参数（用CreateWindowEx），或者在创建后设置该参数（用SetWindowLong），我选用后者。全部函数，其中hwnd是透明窗体的句柄，crKey为颜色值，bAlpha是透明度，取值范围是[0,255]，dwFla

delphi2010 开发的 图片水印工具 透明Panel，用到拖动控件， 窗体保存图片技术 有源代码

写了一个基于C#窗体应用的抽奖小程序，里面设置了一个号码必然中二等奖，一个号码必然中三等奖，三个号码必然不中一等奖，代码中都有注释，可修改

附件： 让窗体像QQ一样吸附屏幕边缘,实现伸缩功能(经典实例) 特点： 代码精简, 完美实现!

可以通过此示例，学习MDI窗体的使用，以及各种窗体布置，包括： 1.垂直分布；2.水平分布；3.层叠分布

很强大的自定义控件,比较实用！（近3兆内容）