Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
''' ----------------------------------------------------------------------------------------------------
''' <summary>
''' Pause the console execution Indefinitely until any key is pressed.
''' </summary>
''' ----------------------------------------------------------------------------------------------------
<DebuggerStepThrough>
Public Shared Sub Pause()
Console.ReadKey(intercept:=True)
End Sub
''' ----------------------------------------------------------------------------------------------------
''' <summary>
''' Pause the console execution Indefinitely until the specified key is pressed.
''' </summary>
''' ----------------------------------------------------------------------------------------------------
''' <param name="key">
''' The key to wait for.
''' </param>
''' ----------------------------------------------------------------------------------------------------
<DebuggerStepThrough>
Public Shared Sub Pause(ByVal key As Keys)
Dim keyInfo As ConsoleKeyInfo
Do Until (keyInfo.Key = key)
keyInfo = Console.ReadKey(intercept:=True)
Loop
End SubConsole.WriteLine("Press any key to exit...")
Pause()
Environment.Exit(0)Dim key As Keys = Keys.Enter
Dim keyName As String = [Enum].GetName(GetType(Keys), key)
Console.WriteLine(String.Format("Press '{0}' key to continue...", keyName))
Pause(key)
Console.WriteLine("Well done.")
Cita de: quasares en 12 Abril 2017, 20:58 PMno encuentro motivo para saber porque fue baneada mi cuenta "encuentrosweb"
Public NotInheritable Class Form1 : Inherits Form
Private ReadOnly Property OrgText As String = "Hello World!"
Private ReadOnly Property CurText As String
Get
If (Me.RichTextBox1 IsNot Nothing) Then
Return Me.RichTextBox1.Text
Else
Return String.Empty
End If
End Get
End Property
Private Sub RichTextBox1_TextChanged(sender As Object, e As EventArgs) Handles RichTextBox1.TextChanged
Dim rtb As RichTextBox = DirectCast(sender, RichTextBox)
Dim chPos As Integer = (rtb.SelectionStart - 1)
Dim ch As Char = rtb.Text.Substring(chPos, 1)
Dim diffState As TriState
If (chPos >= Me.OrgText.Length) Then
diffState = TriState.UseDefault
ElseIf (Me.OrgText(chPos) = ch) Then
diffState = TriState.True
Else
diffState = TriState.False
End If
ColorizeDifference(rtb, chPos, diffState)
End Sub
Friend Shared Sub ColorizeDifference(ByVal rtb As RichTextBox, ByVal charPos As Integer, ByVal diffState As TriState)
Dim oldSelectionStart As Integer = rtb.SelectionStart
Dim oldSelectionLength As Integer = rtb.SelectionLength
Dim fontStyle As FontStyle = rtb.Font.Style
rtb.SelectionStart = charPos
rtb.SelectionLength = 1
Select Case diffState
Case TriState.True ' El caracter coincide.
rtb.SelectionColor = Color.YellowGreen
fontStyle = fontStyle And Not FontStyle.Underline
Case TriState.False ' El caracter no coincide.
rtb.SelectionColor = Color.IndianRed
fontStyle = fontStyle Or FontStyle.Underline
Case TriState.UseDefault ' El índice del caracter está fuera de rango.
rtb.SelectionColor = Color.Gray
fontStyle = fontStyle Or FontStyle.Underline
End Select
Using font As New Font(rtb.Font, fontStyle)
rtb.SelectionFont = font
End Using
rtb.SelectionStart = oldSelectionStart
rtb.SelectionLength = oldSelectionLength
rtb.ResumeLayout(performLayout:=True)
End Sub
End ClassPublic NotInheritable Class Form1 : Inherits Form
Private ReadOnly Property OrgText As String = "Hello World!"
Private ReadOnly Property CurText As String
Get
If (Me.RichTextBox1 IsNot Nothing) Then
Return Me.RichTextBox1.Text
Else
Return String.Empty
End If
End Get
End Property
Private Sub RichTextBox1_TextChanged(sender As Object, e As EventArgs) Handles RichTextBox1.TextChanged
Dim diffIndices As Dictionary(Of Integer, TriState) = GetDifferences(Me.OrgText, Me.CurText)
ColorizeDifferences(Me.RichTextBox1, diffIndices)
End Sub
Friend Shared Function GetDifferences(ByVal orgText As String, ByVal curText As String) As IDictionary(Of Integer, TriState)
Dim orgChars As Char() = orgText.ToArray()
Dim curChars As Char() = curText.ToArray()
Dim orgLength As Integer = orgChars.Length
Dim curLength As Integer = curChars.Length
Dim diffIndices As New Dictionary(Of Integer, TriState)(curLength, EqualityComparer(Of Integer).Default)
For i As Integer = 0 To (curLength - 1)
If (i < orgLength) Then
diffIndices.Add(i, (orgChars(i) = curChars(i)))
Else
diffIndices.Add(i, TriState.UseDefault)
End If
Next i
Return diffIndices
End Function
Friend Shared Sub ColorizeDifferences(ByVal rtb As RichTextBox, ByVal diffIndices As IDictionary(Of Integer, TriState))
Dim oldSelectionStart As Integer = rtb.SelectionStart
Dim oldSelectionLength As Integer = rtb.SelectionLength
Dim fontStyle As FontStyle = rtb.Font.Style
rtb.SuspendLayout()
For Each kvp As KeyValuePair(Of Integer, TriState) In diffIndices
rtb.SelectionStart = kvp.Key
rtb.SelectionLength = 1
Select Case kvp.Value
Case TriState.True ' El caracter coincide.
rtb.SelectionColor = Color.YellowGreen
fontStyle = fontStyle And Not FontStyle.Underline
Case TriState.False ' El caracter no coincide.
rtb.SelectionColor = Color.IndianRed
fontStyle = fontStyle Or FontStyle.Underline
Case TriState.UseDefault ' El índice del caracter está fuera de rango.
rtb.SelectionColor = Color.Gray
fontStyle = fontStyle Or FontStyle.Underline
End Select
Using font As New Font(rtb.Font, fontStyle)
rtb.SelectionFont = font
End Using
Next
rtb.SelectionStart = oldSelectionStart
rtb.SelectionLength = oldSelectionLength
rtb.ResumeLayout(performLayout:=True)
End Sub
End ClassCita de: aspiazu en 8 Abril 2017, 19:44 PMComo puedo declarar en una clase uno o mas metodos publicos con los argumentos que quiero?
Y como puedo pasar la variable data y imagenes a ese metodo?
using System;
using System.Collections.Generic;
using System.Data;
using System.IO;
using System.Linq;
namespace WindowsFormsApplication1 {
public sealed class FileUtil {
private FileUtil() {}
public static IEnumerable<FileInfo> EnumerateFilesByExtension(string dirPath, string searchPattern, SearchOption searchOption,
params string[] fileExtensions) {
foreach (FileInfo item in (from file in new DirectoryInfo(dirPath).EnumerateFiles(searchPattern, searchOption)
where fileExtensions.Contains(file.Extension, StringComparer.OrdinalIgnoreCase)
select file)) {
yield return item;
}
}
}
}IEnumerable<FileInfo> files =
FileUtil.EnumerateFilesByExtension(@"C:\Directorio\", "*.*", SearchOption.AllDirectories,
new string[] { ".exe", ".lnk", ".png", ".jpg" });
foreach (FileInfo file in files) {
switch (file.Extension.ToLower()) {
case ".exe": // Insertar código aquí para procesar archivo .exe
break;
case ".lnk": // Insertar código aquí para procesar archivo .lnk
break;
case ".png": // Insertar código aquí para procesar archivo .png
break;
case ".jpg": // Insertar código aquí para procesar archivo .jpg
break;
}
}Cita de: doctorman en 12 Abril 2017, 00:55 AMen todas el problema es que estan llenas de muchos usuarios la mayoria de la india y es imposible conseguir el trabajo por tanta gente registrada y con mucha buena reputacion
Cita de: RevolucionVegana en 11 Abril 2017, 23:08 PMPanelGeneral es el nombre del objeto que hace de form principal y abrimosPresupuesto() es un método public void que está en PanelGeneral pero que no se ha inicializado
public class Class1 {
public Class1() {}
public void abrimosPresupuesto() {}
}Class1 instance = new Class1();
instance.abrimosPresupuesto();public class Class1 {
public Class1() {}
public static void abrimosPresupuesto() {}
}Class1.abrimosPresupuesto();